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— neuestes 3% ”-Laufwerk mit 180 KB 

— Centronics-kompatibler Drucker 1/O- 
Port 

— Joystick Interface (Kempston- 
kompatibel) 

— monochromer Video-Monitor-Anschluß 

— stabilisiertes Netzteil (versorgt auch 
Ihren Spectrum) 

— Befehlssatz voll Microdrive-kompatibel 

— belegt keinen RAM im Spectrum 

— deutsches Handbuch 

— Gratis-Einführungsdiskette mit 
Programmen 

— volle Herstellergarantie 


DISCOVERY 1 
DM 898." 


DISCOVERY 2 (zwei Laufwerke) DM 1398.-*, Druckerkabel DM 59.-*, Disketten (10-Pack) DM 99.-* 


MHS Datenmanager Spectrum 
anspruchsvolles Datelprogrammsystem. 
Datensätze bis 5 KB. 1000 Datensatze im 
Indexzugrit, Deutsches Handbuch 

(auf 3)" -Diskette) DM 99,* 
(auf Microdrive Cartridge) DM 99,* 


MHS Tasword Il Ergänzung 
Ermöglicht zusammen mit Datenmanager 
Mai-Merging (Serienbriefe), Anpassung 
an jeden Adreßsatz, 

(auf Kassette) DM 29,90* 
= urwerbindiche Preisempfehlung in. Mut. 


Die Discovery-Systeme gibt's ganz in Ihrer Nähe: 


ELSCH COMPUTER 
Leber Sır. 11 
1000 Berlin 62 
Tel. 030/7 826055 


COMPUTER 


CENTER 


Raschplatz 9 n (Passerelle) 
3000 Hannover 1 - Tel, (0511) 315411 


LÜCKER MICRO-SOFT 
In der Eisenbach 37 
6270 Idstein. 


Tel. 06126/1559 


EUrsmRUTen 


6450 Hanau 1, Steinheimer Str. 27 
Telefon (0 61 81) 25 47 83 


MICHAEL NAUJOKS 
Rottmannstr. 40 
‚6900 Heidelberg 

Tel. 08221/46885 


MHS Müller Hard & Software 
Bergstraße 7. 
7262 Althengstett 
Tel. 07051/9213 


Handbuch für Hacker 

— Was wird zum Hacken benötigt? — Was 
ist eine Mailbox? (über 700 Nummernilt) 
— Datex-P-BTX TAB. 

Für alle Rechner mitModem; 2bändig, mit 
Aktualisierung DM 38; 


AD FRIEDMANN 
Informationssysteme 
Wilhelminenstr. 17A 


‚8100 Darmstadt 
Tel 06151/26566 


THORSTEN FREITAG 
Soft & Hardwarevertrieb 
8552 Höchstadt a. d. Alsch 
Tel. 09193/7630 


KR 
In oder out? 


‚Alle Welt redet von 16 Bit, zählt 
RAM 100-Kilobyte-weise, träumt vom 
MOPS (Millionen Operationen pro 
Sekunde): Da istder Spectrum »out«? 
Ich glaube nicht. Es gibt Fachleute, 
die behaupten, zwei Drittel bis drei 
Viertel aller Mikrocomputer-An- 
wender bräuchten ohnehin nicht 
mehr als die Leistung eines 8-Bit- 
Prozessors. Für den Spectrum 
spricht femer, daß er preisgünstig 
und ausgereift ist, daß es sehr viel 
Hard- und Software gibt — und eine 
Menge Literatur und Erfahrungen. 
Seitdem die PlusVersion geliefert 
wird, kann man nicht einmal gegen 
das Tastaturformat etwas einwen- 
den. Selbst manche systembeding- 
ten Beschränkungen sind bei nähe- 
rer Betrachtung gar nicht so wichtig: 
So reicht eine Bildschirmdarstel- 
lung von maximal 64 Zeichen/Zeile 
auch für Textverarbeitung völlig aus 
(wer’s nicht glaubt, sollte einmal die 
durchschnittlichen Anschlagzahlen 
in einem mit Schreibmaschine ge- 
schriebenen Brief zählen), 

Natürlich ist ein Sechszylinder- 
Mercedes schöner und komforta- 
bler und schneller alseinR4. Obdie 
‚Anschaffung aber einen Sinn macht, 
wenn Sie mit dem Auto im wesentli- 
chen Ihre Briefe zur Post bringen 
und alltägliche Besorgungen erledi- 
gen wollen, isteine ganzandere Fra- 
ge, Das gleiche gilt für den 
Computer-Kauf: Es muß ein vernünf- 
tiges Kosten/Nutzenverhältnis ge- 
geben sein. Und da sieht der Spec- 
trum wirklich nicht schlecht aus. 
Deswegen ist er immer noch »in« — 
selbst und gerade bei den vielen 
Benutzern, die ihn gut kennen. 

(Michael Pauly, Chefredakteur) 
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Sindair 
for ever 


Angespornt durch viele nette Zu- 
schriften mit oben genanntem Aus- 
spruch habe ich mich an unser zwei- 
tes Sonderheft gewagt. Geplant war, 
in diesem auch als Aufsteiger-Alter- 
native über den OL in der deut 
schen Versionzu berichten. Daeszu 
diesem Computer aber bisher trotz 
vieler Versprechungen nur Ab- 
sichtserkläringen und allenfalls 
Gerüchte gibtund die deutsche Nie- 
derlassung von Sinclair in Bad Hom- 
burg nicht gerade durch positive 
Aktivitäten von sich reden macht, 
haben wir auf den QL verzichten 
müssen, Rüstet man den Spectrum 
mit einem Diskettensystem aus, hat 
man auch wesentlich preiswerter ei- 
ne »Profi-EDV-Anlagex. Hier ist zum 
Beispiel das Opus-Discovery-Sy- 
stem eine emsthafte Betrachtung 
wert. Dafür gibt es inzwischen den 
Spectrum plus und für Leute, die 
schon einen Spectrum haben, einen 
Aufrüstsatz für knapp 100 Mark. Die- 
ser besteht aus der PlusTastatur, 
der Demo-Kassette und dem neuen 
Handbuch und macht unter Verwen- 
dung eines Schraubendrehers aus 
jedem Spectrum einen Spectrum 
plus. Ebenfalls erfreulich ist die Tat- 
sache, daß das Interface 1 mit Mi- 
crodrive zu einem günstigen Preis 
offeriert wird und nun wohl endlich 
damit gerechnet werden darf, daß 
auch eine Vielzahl kommerzieller 
Programme auf Cartridge angebo- 
ten wird. Die extrem stark gesunke- 
nen Preise des Microdrive-Cartrid- 
ge (das Viererpack schon für 32 
Mark) trösten zusätzlich über die. 
‚Anschaffungskosten für das Interfa- 
ce mit Laufwerk hinweg, Ein Disket- 
tenlaufwerk kostet immernoch rund 
das Doppelte. 


Was geboten wird 

Die Themenauswahl zu diesem 
Sonderheft haben Sie vorgenom- 
men, mit Ihren Leserkarten, Briefen, 
Anrufen, Programm- und Artikelan- 
geboten. Wir gehen davon aus, daß 
nicht jeder Spectrum-Besitzer ein al- 
ter Hase ist. Darum sind einige Tips 
und Tricks und Spielelistings für Ein- 


steiger gedacht. Aber auch schlaue 
Füchse sollen zu ihrem Recht kom- 
men. Diesen sei der Maschinenco- 
de-Kurs ebenso wie der Artikel 
über die Spectrum-Schnittstellen 
ans Herz gelegt. Mit Testberichten 
haben wir uns zurückgehalten, sie 
sind Bestandteil der aktuellen mo- 
natlichen Ausgabe der Happy-Com- 
puter. Damit die Lötkolben-Bändi- 
‚ger was zum „Verbraten« finden, ha- 
ben wir einen alten Bekannten, un- 
seren Soundgenerator, nochmal 
hervorgeholt und dafür auch gleich 
und exclusiv eine 8-Bit-Ausgabeein- 
‚heit zum Selberstricken im Angebot. 
Für Musestunden oder als Entspan- 
nung zwischen der Abtipperei bie- 
ten sich der Adventure-Artikel und 
die Psion-Story an. Zum Nacheifern 
sei die »goldene Diskette« empfoh- 
len, nicht zum Nachmachen (oder 
doch?) soll die »Spectrum-Repara- 
tur« anleiten. 


Eine Menge Listings 

Die anwendungsbezogenen Li- 
stings sollen dem Gebrauch als 
auch, wie natürlich speziell die Tips- 
und Tricks-Listings, dem Denkan- 
stoß für eigene Programmentwick- 
lungen dienen. Viele Programme 
aus dem ListingTeil bieten wir, um 
Ihnen das lästige zeitraubende und 
nervenzehrende Eintippen zu er- 
sparen, auf einer Sammelkassette 
(Bestellnummer LH8SSID, 19,90 
Mark) an. Der Preis dafür ist nur 
noch durch Raubkopieren zu unter- 
bieten. 

In der Hoffnung, allen Spectrum- 
Fanseinen Gefallen getanzu haben, 
Ihr Happy Computer-Redakteur 
und überzeugter Spectrum-Benut- 
zer (Manired-D. Koting) 
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auvorschläge machen aus dem müden Beep 
ı Sound und einen Ausgabe-Baustein mit 
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Ein Maschinencode-Kurs für Fortgeschrittene mit einer 
kompletten Unterprogramm-Sammlung und leicht 
verdaulicher Anleitung hilft auch Ihnen beim 
Programmieren. 
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Arge HORIZONS 5 


Daß Psion mehr kann, als die Demo-Kassette Ihres 
Spectrum zu produzieren, zeigt unser Besuch in 
England. 


Abenteuer Spectrum 


Grundlagen, Tests und Tips 6 
Klavierstunden für 27 Mark 

Musiksoftware im Test 9 
Britischer Humor 

Eine kritische Betrachtung 10 
Psion, eine Firma mit Charme 

Eine Unternehmensbetrachtung 

mit Interview 12 
Die Multis kommen 

Software — Vorstellung 15 
Routinen für die Praxis 

Maschinencode für Fortgeschrittene 17 
Kassetteninterface 

Eine ROM-Betrachtung 8 
Variablendump 

Ein praktisches Hilfsprogramm 95 
Private Finanzen 

Softwaretest % 
Diskettendoktor für Beta-Disc 

Softwaretest 97 
‚Goldene Diskette 

Die Geschichte eines Gewinners kl} 
Daten-Verbindungen 

Die Signale des Spectrum erkennen ki) 
Microdrive-Expreß 

Cartridge-Speicherung 

schneller und sicherer 102 
PEEKs und POKEs 

Eine Trick-Sammlung für alle Zwecke 103 
1 Print III 

Problemlösung für Druckerinterface 104 
Mit dem Spedrum auf Du und Du 

Eine wenig ernste Reparaturanleitung 106 
Es hat gefunkt 

Test RTTY/SSTV-Hard- und Software 107 
Soundgenerator 

Bauvorschlag 108 
PIO zum Soundgenerator 

Bauvorschlag m 
‚Autorenverzeichnis 

Impressum 14 


Spiele-Listings 


Entweichen 

Grafik-Abenteuer 35 
Defender 

Weltraum-Jagd 43 
Anaconda 

Ein tierisches Schlangenabenteuer 45 
Geheim 

TextVerschlüsselung 5; 
Space-Smily 

Spiel unter Beta Basic 50 
Tips &Tricks-Listings 

Internas aus dem Computer 

Tips zum Interrupt und Speicherplatz 75 
Border-Effekte 

Farbe per OUT-Befehl 76 
Clear-List 

Saubere Listing-Tabelle 78 
Bit-Kopierer 

Programmkopie per Programm 82 
UDGs durch POKE-Befehle 

Grafikzeichen mal anders 84 
Funktionstasten 

Microdrive-Version 84 
Hexerei 

Eine Eingabe-Hilfe für Hex-Code 87 
Anwendungs-Listings 

3D-Plotten 

Grundlagen der dritten Dimension 52 
Disassembler 

Basic-Listing für Maschinencode 57 
3D-Grafik 

Mini-Listing mit Maxi-Wirkung 64 
Platinen-CAD 

Hilfe für Elektronik-Freaks 66 
Mathe-Trainer 

Ein geduldiger Sparrings-Partner 9” 


Für Elektronik-Bastler bieten wir ein Platinen-CAD- 
Programm, das ihnen die Arbeit wesentlich erleichtert. 


Den Signalen des Spectrum geht unser Artikel »Verbin- 


dungen« auf den Grund. Damit können Sie mehr aus 
Ihren Daten machen. 


Wenn Sie sich in ein Abenteuer mit dem Spectrum 
stürzen wollen, finden Sie in unserem Adventure-Artikel 
viele Tips und Anregungen. 


Adventure 


Abenteuer Spedrum 


Die Schuhe geschnürt, den Ranzen gepackt und auf 
Be Ihr Computer entführt Sie in verwunschene 

hlösser, unheimliche Höhlenlabyrinthe und ferne 
Welten. Adventures machen es möglich, die an- 
spruchsvolle Spielart, bei der nicht Reaktionen und 
Schnelligkeit, sondern Überlegung und Gehirn- 
schmalz gefragt sind. In diesem Abenteverspiel- 
Führer stellen wir Ihnen die interessantesten 
Programme dieses Genres vor. 


Personen. Einfach wird die Sache 
dadurch nicht, aber ein Abenteuer- 
spiel, das schon nach kurzer Zeit ge- 
löst wäre, ist auch nicht das Gelbe 
vom Ei. Einmal zu Ende gespielt, 
wird ein Adventure nämlich reizlo: 
die Spielmotivation geht völlig flö 
ten. 


Die Welt im Computer 


Angenommen, das Programm 
teilt Ihnen am Bildschirm nach dem 
Laden mit, daß Sie auf einer Wald- 
lichtung stehen. Mehr tut sich aber 
der Spectrum war- 
tetnun darauf, daß Sie die Initiative 
ergreifen. Um nun beispielsweise 
nach Norden zu gehen, tippt man im 
schönsten Schulenglisch »Go North« 


aren Computerspiele in der 

Regel Programme, bei de- 

nen man Punkte sammelte 
und für die man sich ein Joystick- 
Interface zulegte, eroberte ein neu- 
er Spieltyp klammheimlich eine stol- 
ze Fan-Gemeinde. Selbst abgeklär- 
te, sachliche Menschen, die mit 
Spielereien sonst wenig im Sinne ha- 
ben, hocken bis tief in die Nacht vor 
der Glotze und grübeln im fahlen 
Licht einer einsamen Schreibtisch- 
lampe vor sich hin. Verursacher die- 
ser harmlosen nächtlichen Leiden- 
schaft sind der gute alte Spectrum 


teaei I 


Der nette Herr links 
scheint auf den er- 
sten Blick ein Verkäu- 
fer in einem Compu- 
tershop zu sein — 
doch weit gefehlt: 
der »Ringmaster« 
ist’s, frisch aus dem 
‚Adventure »Spider- 
Man« 


do 


und ein entsprechendes Programm: 
Abenteuerspiel oder neudeutsch 
‚Adventure genannt 

Bei Adventures gilt es immer eine 
bestimmte Aufgabe zu lösen, 
ob ein böser Zauberer 
gemacht, ein Schatz gefun« 
ein Mordfall aufgedeckt werden 
muß. Um diese Aufgabe zu erfüllen, 


muß man sich in einer neuen Welt, 

die nun sozusagen im Spectrum 

steckt, zunächst orientieren. Gute 

Abenteuerspiele enthalten nämlich 
1: 


genständen und auch m. 
weniger freundlich g 


sonnenen 


ein. Nun tut sich aufdem Bildschirm 
wieder etwas: Sie erreichen einen 
neuen Schauplatz, an dem Sie sich 
wieder orientieren müssen. Nach 
diesem Schema läuft das ganze Ad- 
venture ab. Durch Eingeben Ihrer 
Befehle über die Tastatur verraten 


Götter, Grusel und Gefahren: »Valhalla« 


Adventure 


Frisch aus dem Dom entkommen: »The Hulk« 


Sie d Programm, was Sie als 
nächstes in der Phantasiewelt tun 
wollen. Da nahezu alle Adventures 
aus England kommen, sollten Sie 
sich auf alle Fälle ein Wörterbuch 
zurecht legen, denn deutsche Be- 
fehle versteht ein englisches Pro- 
gramm nicht. Es gibt 
deutschsprachige Spectn 
teuer, die aber be: 


Grofik ka Text 


Abenteuerspiel 


kann man im 


teilen: Zum einen 
zum anderen Text pu 

>xtadventures sind optisch 
‘echt unattraktiv, worunter 
der Spielwitz spürbar leidet. Doch 
bei vielen Programmen kredenzt 


Unterwelt mit Grünstreifen: »Inferno« 


schöne Abenteuerbilder, wobei ei 
nige Programn 


sentlich teurer sind als knochen- 
trockene Textorgien. 

Bei besonders anspruchsvollen 
Texten nimmt man auch geme mal 
eine relativ r ige Grafik in Kauf, 
zum Beispiel bei »Sherlock Hol- 
esı. Das Programm. steht dem 
großen literarischen Vorbild kaum 


nach, wenn es um detaillierte Be- 
schreibungen und verzwickte 
Handlungsfäden geht. Sherlock 


Holmes und Dr. Watson müssen na- 
türlich einen Mordfall in London klä- 
ren; eine schwierige Aufgabe, vor 
der Anfänger gewamt seien. Krimi- 
fans und Freunde sprachlich an- 
spruchsvoller Abenteuerspiele 


werden bei »Sherlock Holmes« 
schier aus dem Häuschen sein, so 
viel Atmosphäre kommt bei diesem 
Computer-Mordfall rüber. 


Comic-Strip als 
Adventure-Hit 


Eine Art »Sherlock Holmes der 
Adventure-Programmierer« ist der 
Engländer Scott Adams, der so viele 
professionelle Abenteuerspiele ge- 
schrieben hat wie sonstniemand auf 
der Welt. Von ihm stammen die bei- 
den ComicTitel »The Hulk« und 
»Spider-Man«. Vor allem jugendli- 
che Fans werden an den fantasievol- 
len Programmen viel Spaß haben. 
Ein weiterer Scott Adams-Titel dreht 
sich um den bösen Her: 


stimmungsvolles Abenteuer, bei 
dem viel Magie mit im Spiel ist, Alle 


Jede Menge komische Typen: »$pider-Man« 


heit Spectrum. 


Ein schickes Schlößchen: »Sorcerer of Claymorgue Costle« 


Doomdark's Revenge 3 ja Beyond  Eigenständige Fortsetzung zu 


»Lords of Midnight«. Noch mehr 
strategische Elemente. 
Emerald Isle 2 ja level9 Als Pilot machen Sie Bruchlan- 
f dung auf einer Insel. Über 200 
Schauplätze, 
Forestat WorldsEnd 20-— Ja Intereptor Eine Prinzessin soll gerettet 
werden. Zur edlen Handlung 
‚gibts einige schöne Grafiken. 
Hampstead 39— Nein Melboume Originelle Handlung: Ziel des 
House ‚Spiels ist der soziale Aufstieg 
Inferno B- Ja Richard Witziges Unterwelt-Abenteuer 


Shepherd mit Zerebus, Minos & Co. 
Lords of Midnight 39— Ja Beyond Strategische Elemente, Tastatur- 


schablone mit den Befehlen. 

legt bei, schr komplez 
Lords of Time 3%, Nein Lewl® Reise durch diverse Zeitepo- 
‚chen. Keine Grafik, aber über 
200 Schauplätze 

Retum to Eden %8- Ja Ievel@ Science fiction-Abenteuer im 
24. Jahrhundert mit über 200 Bil- 
dem. 

SorcererofClaymor 3 Ja Adventure Zaubersprüche miissen im rich- 

que Castle Intematio- tigen Moment angewendet wer- 
nal den. Sehr schöne Bilder. 

Sherlock Holmes 49— Ja  _Melboume Schwierig mit anspruchsvollen 

se empfohlen. 

‚Spider-Man 3% — ja Adventure Für Comic-Fans: Der Abenteue- 
Internatio- _rer schlüpft in die Rolle von 
nal »SpiderMan«. Schöne Grafik. 

‚The Hobbit 8% Ja  Melboume Klassiker in Anlehnung an Tol- 
House kiens ‚Herr der Ringes. Hand- 

lung und Grafik vom feinsten. 

The Hulk Ja Adventure Grafisch überzeugendes Spiel 
Internatio- um die Comic-Figur »Bull«. 
nal Nicht gerade einfach. 

Valhalla 9- Ja Legend Die Figuren agieren auf dem 

Bildschirm wie in einem Zei- 
chentrickfilm, sehr reizvoll. 

Bezugsquelle für alle Programme: Joysoft, Humboldstz, 84, 4000 Dümseldorf 1. Tel, (04 11) 680 1403 


Eine Auswahl von Spechrum-Adventures 


drei Titel haben eines gemeinsam: 
Die zahlreichen Grafiken gehören 
mit zum Besten, was man in dieser 
Kategorie bisher auf dem Spectrum 
gesehen hat. Prädikat: sehr empfeh- 
lenswert. 

Ein Programm, das ziemlich aus 
dem sonst üblichen Adventure- 
Rahmen fällt, ist das Götterdrama 
‚Valhalla«. In diesem Spiel erschei- 
nen keine starren Bilder, sondern es 
tut sich wie beim einem Zeichen- 
trickfilm eine ganze Menge. Ver 
schiedene Figuren tauchen auf, 
tauschen Gegenstände, bekämpfen 
sich und verschwinden wieder. Der 
Spieler ist natürlich auch mit einer 
Figur vorhanden und kann, wie sich 
das für ein Abenteuerspiel gehört, 
Kommandos über die Tastatur ein- 
geben. Kreuzt beispielsweise Odin 
aufund Ihnen ist nach einer kleinen 
Rauferei zumute, geben Sie »Kill 
Odin« ein. Nach einigen Sekunden 
Verarbeitungszeit tippelt Ihre Spiel- 
figur auf dem Bildschirm prompt zu 
Odin hin und ein Handgemenge 
nimmtseinen Lauf. Wie gesagt: Kein 
Adventure im herkömmlichen Sinn, 
eher ein einfallsreiches Trickfilm- 
abenteuer. Kein Wunder, daß das 
originelle Programm 1984 in Eng- 
land alle möglichen Preise gewann. 
Auch das Handbuch zu alhalla« 
bestätigt den sehr guten Eindruck. 
Vor allem die Zeichnungen der Sa- 
genfiguren sind ein Augenschmaus. 


Kino-Erfolge 
werden umgesetzt 


Kurz nach Redaktionsschluß und 
deshalb ohne Bildschirmfoto kam 
»Gremlins« auf unseren Schreib- 
tisch, Es ist das Adventure zum letzt- 
jährigen Steven Spielberg-Film und 
wurde von den Routiniers von Ad- 
venture International (The Hulk« 
etc.) in gewohnter Qualität program- 
miert. Die Grafik ist sehr gut, doch 
das Spiel selbst ziemlich schwierig, 
vor allem, wenn man den Film nicht 
gesehen hat. Anfänger seien ge- 
warnt, 

Soweit einige Besonderheiten aus 
dem Angebot an Spectrum-Adven- 
tures. Eine ausführliche Übersicht, 
die keinen Anspruch auf Vollstän- 
digkeit erhebt, haben wir für Sie in 
einem Kasten zusammengefaßt. 
Und falls Sie jetzt so richtig auf den 
Geschmack gekommen sind, noch 
etwas indiskrete Eigenwerbung: 
Die Tests von allen guten Neuer- 
scheinungen finden Sie jeden Mo- 
nat in »Happy Computer«. Happy 
‚Adventureing..- 

(Heinrich Lenhardt) 


Sonderheft Spectrum. 


Musikprogramm 


Klavierstunden 
für 27 Mark 


Fe: een en ee 


ehr und mehr »Videospiel- 
müde« entlocken in letzter 
Zeit ihren Heimcomputern 
teils abenteuerliche Klänge und 
Tonfolgen: Musik ist drin. Musicma- 
ster greift all den Spectrum-Besit- 
zernunterdie Arme beziehungswei- 
se Finger, die sich mangels musika- 
lischer Vorbildung bisher nicht an 
diesen kreativen Zeitvertreibheran- 
wagten oder immer noch der Auf- 
fassung sind, man könne mit einen 
Piepser keine Musik machen. Klar, 
auch die beste Software wird den 
Spectrum nie in einen Konzertflügel 
verwandeln. Doch warum sofort 
nach dem Höchsten streben? Auch 
ein Hirte erzeugt mit seiner primiti- 
ven Pfeife Töne, Melodien, Musik 
und hat viel Spaß dabei. 
Musicmaster ist gedacht für abso- 
lute Musiklaien. Die Software lüftet 
in Bild und Ton die Geheimnisse um 
Tonhöhen, Zeitwerte, Pausen, Vor- 
zeichen und Taktarten. Die Voraus- 
setzung für das erfolgreiche Beste- 
hen des Software-Mini-Musikkurs 
liegt in ganz anderem Bereich. 
Denn, nichts geht ohne Englisch- 
Kenntnisse. Alle Erklärungen im 
„Bildschirmtext« sind in Englisch ab- 
gefaßt. Doch welcher wahre Com- 
Puterfreak ist dieser Spracheneben 
Basic und Assembler nicht fähig? 
Und wenn, dann ist es höchste Zeit, 
sich einen Software-Vokabeltrainer 
zuzulegen. 
Hat man die Lektionen des Music- 


RR hi Me En HUB xe 


master durchgearbeitet, weiß man 
etwas mehr als zuvor. Vom Musik- 
Professor ist man jedoch noch sehr 
weit entfernt. Und leider, oder Gott 
sei Dank, der Computer erklärt 
zwar, wie die Töne heißen und klin- 
gen, aber nicht wie man sie aneinan- 
derreiht, damit das, was heraus- 
kommt, auch Musik ist. Hierzu ist 
letztlich doch ein gewisses Quantum 
Musikalität nötig. Die wahren Musi- 
ker beweisen sich also erst in Teil 2 
der Musicmaster-Software. 

Im Stave- oder Keyboard-Mode 
funktioniert das Programm den 
Spectrum zum Miniklavier bezie- 
hungsweise zur Automatikspieluhr 
um. Hier werden Töne zu Melodien. 
‚Akkorde lassen sich jedoch nicht 
spielen, sondem 
immer nur mono- 
‚phone Solos. Der 
Piepser des 
Spectrum kann 
nicht mehrere Tö- 
ne gleichzeitig 
produzieren. 

Die Töne gibt 
man durch Drük- 
ken der zugehöri- 
gen Symbole, also 
C©,D Eundsowei- 


Orr 


Das Menü läßt den > 
Kognmeinlang er- 


ter und einem zusätzlichen Hilfszei- 
chen für erhöhen, erniedrigen be- 
ziehungsweise normal ein. Oder 
man legt das mitgelieferte Overlay 
über die alphanumerische Tastatur 
des Spectrum. Die beiden oberen 
Tastenreihen bilden dann eine Mini- 
klaviatur mit schwarzen und weißen 
Tasten. Nun spielt man Ton für Ton 
genau wie auf einem Klavier. In je- 
dem Fall erscheint der eingegebe- 
ne Ton sofort auf der richtigen No- 
tenlinie am Bildschirm. Hat man in 
Lektion 1 der Software gut aufge- 
paßt, fällt es nun nicht schwer, den 
richtigen Ton zu treffen und mit den 
speziellen Befehlen Taktart, Tempo, 
Tonhöhe, Tonlänge, Vorzeichen und 
Pausenwerte den Vorstellungen ent- 
sprechend einzugeben. Natürlich 
kann man falsche Eingaben später 
korrigieren, ganze Abschnitte lö- 
schen oder kopieren. 

Wie sehr man sich selbst als 
Musik-Maestro bewährt, hört man 
spätestens beim Abspielen der ein- 
gegebenen Melodie. Und braust 
Beifall auf, sollte man spätestens 
jetzt das gelungene Werk auf Kas- 
sette speichern. (Richard Aicher) 


...... 


Mit Musicmaster können Sie lernen .... 


NER 


.. und auch ausgiebig üben, Noten zu losen und zu schreiben 
EN DD 


Sindair 


Britischer Humor 


Sindair hat es schwer, nicht nur mit seiner deut- 
schen Repräsentanz, sondern auch mit den Finanzen 
und der deutschen QL-Version. Aber es gibt auch 
einen Lichtblick: den Spectrum plus. 


clair einen Werbefeldzug für 

den QL in deutscher Überar- 
beitung. Gleichzeitig übernahm ei- 
ne neue Mannschaft die bisher vom 
Generalvertreter Schumpich gelei- 
stete Arbeit, es wurde eine Nieder- 
lassung in Bad Homburg etabliert. 
Im Herbst 1984 kam dann überra- 
schend der Spectrum plus und 
ebenso überraschend ging das 
Homburger Führungstrio. Zum ein- 
gedeutschten QL gibt es bisher nur 
Absichtserklärungen. Daß zwi- 
schen der Präsentation des C5 (kein 
Computer, sondern ein Plastik- 
Elektro-Dreirad) und dem abge- 
brochenen Versuch der Einführung 
einer Sinclair-Aktie an der briti- 
schen Börse ein Zusammenhang be- 
steht, ist nicht zu beweisen. 

Auch das Weihnachtsgeschäft lief 
für Sinclair weder in England noch 
in Deutschland zufriedenstellend. 
Nur der Spectrum plus erfreute sich 
anfangs großer Beliebtheit, die 
Nachfrage war größer als das Ange- 
bot. Der QL in der britischen 
Original-Version wird über mehr 
oder weniger offizielle Importwege 
nach Deutschland gebracht und seit 
einigen Wochen ist dieser Compu- 
ter nun auch offiziell bei Sinclair in 
Deutschland erhältlich. Von den bis- 
herigen »grauen« Importen unter- 
scheidet er sich nur in der mitgelie- 
ferten Psion-Software. Diese wird in 
der Version 2.00, einer wesentlich 
verbesserten Version, ausgeliefert. 


V: gut einen Jahr startete Sin- 


Was es neues gibt 

Der Spectrum ist offenbar auch 
aus der Sicht der Zubehör-Industrie 
ausgereizt. Es gibt seit Monaten kei- 
ne Peripherie-Hits. Dafür ist wenig- 
stens das Preisniveau auf eine ver- 
nünftige Ebene gesunken, und Sin- 
clair forciert endlich etwas mehr 
sein Microdrive, Das Set aus Interfa- 
ce 1 und Laufwerk mit vier Cartrid- 
ges und vier Programmen ist preis- 
wertzu bekommen und wird hoffent- 
lich das Angebot an Software für 


dieses Speichermedium erhöhen. 
Seiteinigen Wochen munkelt man in 
England über ein weiteres Mitglied 
in der Spectrum-Familie, eine trag- 
bare Version mit integriertem Lauf- 
werk, LCD-Anzeige und Akku-Puf- 
fer. Wenn dies stimmt und dieser 
Neue auch noch kompatibel zu sei- 
nen Brüdern ist, könnte er eine 
Chance haben. Auf dem QL-Sektor 
istesin bezug auf Peripherie bedau- 
erlich ruhig und in bezug auf Softwa- 
re gefährlich leise. Dies gilt einge- 
schränkt für den britischen und un- 
eingeschränkt für den hiesigen 
Markt. Selbst auf der LET, Englands 
großer Computer-Zubehör-Messe, 
'war im Februar das Thema QLnicht 
sehr gefragt. 


Nur keine Panik 


Nach neuesten Meldungen fehlen 
Sir Clive nur 15 Millionen britische 
Pfund an Liquidität, um seine Ver- 
bindlichkeiten und Neuentwicklun- 
gen zu finanzieren. Grund dieses Fi- 
nanzloches ist der erwartungsge- 
mäß schleppende Absatz des Drei- 
rades (C5), des Taschenfernsehers 
(drei Jahre zu spät) und des OL 
(Pseudo-Personal-Computer). In der 
entsprechenden Presseverlautba- 
rung liest sich dies dann so; 


l. Das Unternehmen Sinclair Re- 
search Limited bestätigt, daß es Ka- 
pital in Höhe von 10 bis 15 Millionen 
‚Pfund in der Industrie oder ander- 
weitig aufnehmen will, um langfri- 
stiges Wachstum und Restrukturie- 
rungspläne zu finanzieren. 


2. Sir Clive Sinclair sucht seit eini- 
ger Zeit für das Unternehmen einen 
neuen Chief Executive Officer 
(CEO) für eine Position, die er bis- 
‚her selber innehatte. Diese Maß- 
‚nahme ist Teil einer Firmenrestruk- 
turierung, die mit der Schaffung 
von zwei Betriebsdivisionen von 
Sinclair Research im März begon- 
'nen worden ist. Die Computer Divi- 
sion sowie die TV & Communica- 


tions Division haben beide je einen 
eigenen Managing Director. 


Die sicherlich richtige Entschei- 
dung, nun endlich einen verantwort- 
lichen und kaufmännisch erfahre- 
nen Mann in das Unternehmen zu 
holen, kommt hoffentlich nicht zu 
spät. Spitze wäre, wenn diesauch für 
die deutsche Dependence in Bad 
Homburg gelingen würde, die noch 
immer steuerlos im Abwind driftet. 


(Manfred Kotting) 


Wo bitte geht’s 


‚Sowohl IBM und Atari als en 
a haben neben Sir 
Clive Sinclair eine Marktlücke 
zwischen den bisherigen 


16-Bilter Ei diesem Marktseg- 

inent, schon wegen der Prozes- 

sor-Gläubigkeit (16 Bit ist in), kei- 

ne Chance haben. Ob überhaupt 
en 


M ist, 
ugs ÖbdenaztiienQh 
ist, wird von mir bezweifelt. 
well tummeln sich in der 
Kassa Omen Heim- 
computer-Szene und ae fi 
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Pe Rn 


Wer seinen 


Eine Solarzellen-Nachführung oderein Plotter, 


Computer liebt, 


eine Sortieranlage oderein Teach-in Roboter, 


schenkt ihm einen 


derTurmvonHanoi oderein Grafiktablett- alles aus einem Baukasten. 


Baukasten. 


fischertechnik computing — das ist das neue System, mit 
dem man noch mehr Leben in den Home-Computer 
bringen kann. Aus einem einzigen Baukasten lassen 
sich 10 und mehr Yaetnsns 
Peripheriegeräte konstruieren und pro- gene % 

grammieren. fischertechnik computing Ess sss.ven Fe 
— über ein passendes Interface/Soft- 
ware-Paket kompatibel zu vielen gängi- 
gen Home-Computern. 


Brauch Hune apa 


Psion-Story 


Psion — eine Firma mil 


Der Name Psion steht für Sindair-Benutzer ganz 
oben, wenn es um hervorragende Software für 


zx8l, 


ecrum und nun auch den QL geht. Tat- 


sächlich hat die Firma einen kometenhaften Aufstieg 
hinter sich, und ein Ende ist noch nicht abzusehen. 
Wer und was steckt hinter diesem Softwarehaus? 
Dr. Bosetti war für uns in London und hat Psion 


unter die Lupe genommen. 


as Taxi hält in der Huntsworth 

Mews bei Psion Ltd., wo ich um 

ll Uhr mit David Potter, dem 
Gründer und Chef der Firma verab- 
redet bin. Eine leichte Verwunde- 
rung kommt auf, das Gebäude 
macht eher den Eindruck einer klei- 
nen Bastlerwerkstatt denn deneiner 
Software-Firma, die einen Umsatz 
von 10 Millionen Pfund im Jahr er- 
reicht. 

Im Hause selbst erfahre ich die 
Lösung: Das Hauptquartier von 
Psion ist verlegt worden, hier befin- 
det sich praktisch nur noch das Ver- 
sandlager. Zum Glück ist das neue 
Haus nur 100 Meter entfernt. Schon 
von außen kann man hier den Erfolg 
der letzten Jahre erkennen, ein de- 
zentes goldenes Türschild und der 
Stil erinnern an Downingstreet 10. 

Zwei junge Damen sitzen in der 
Empfangshalle David Potter wird 
sofort hier sein, berichten sie mir. In 
den wenigen Minuten Wartezeit be- 
komme ich einen Eindruck von der 
‚Aktivität von Psion, das Telefon steht 
keine 10 Sekunden still. Die Damen 
en wirklich einen »Full Time 

job«. 

Während ich noch an den Wän- 
den die Produkte bewundern kann, 
die Psion groß gemachthaben — VU 
3D) Hungry Horace, Flightsimulation 
und wie sie alle heißen — kommt 
auch schon David Potter, um mich 
abzuholen. Er istes, der diese Firma 
als Ein-Mann-Betrieb Ende 1980 ge- 
gründet hatte. Nicht ohne Stolz er- 
zählt er, daß er das Startkapital für 
Psion an der Börse »gemacht« hat, 
immerhin etwa 80000 Pfund, 

Vielleicht hat man nun den Ein- 
druck, eshandele sich um einenrei- 
nen Wirtschaftsmanager, aber weit 
gefehlt. Ehe Potter die Firma grün- 
dete, war er als promoyierter Physi- 
ker an den Universitäten in Los An- 
gelos und London als Lehrer tätig, 


A: 


ın 


under hatlange Zeitüberlegt, ober 
seine akademische Laufbahn auf- 
geben soll. 

Betrachtet man die Gehälter an 
den britischen Universitäten, so 
kann man wohl sagen, daß sich zu- 
mindest in finanzieller Hinsicht sein 
Entschluß als richtig erwiesen hat. 
Zur Zeit beschäftigt seine Firma et- 
wa 68 Mitarbeiter und ist weiter auf 
Expansionskurs. 

Angefangen hat alles mit Spiel- 
programmen für den ZX81 und 
Psion hat damals gezeigt, was man 
alles aus diesem Computer heraus- 
holen kann. Noch heute sollen sich 
einige dieser Programme recht gut 
verkaufen. Und wer zum Beispiel 
das Schachprogramm oder den 
Flugsimulator für den ZX81 kennt, 
kann nur bestätigen, daß der »Klein- 
ste« von Sinclair Qualitäten zeigen 
kann, die man ihm vorher nicht zu- 
getraut hatte. 


Mit dem Spectrum 
kam der Boom 


Der große Durchbruch für Psion 
kam aber erst mit dem Spectrum. 
Einerseits hat Sinclair erkannt, daß 
die Software von Psion qualitativ 
sehr hoch stand, andererseits sah 
Psion die großen Marktchancen des 
Spectrums voraus (in England hat 
der Spectrum fast die gleiche Stel- 
lung wie der C64 hier in Deutsch- 
land), Dadurch kam es zu einer 
fruchtbaren Zusammenarbeit zwi- 
schen diesen beiden Firmen. 

Neben solchen erfolgreichen 
Spielen wie Hungry Horace wurden 
auch wieder die Möglichkeiten des 
Computers mit Schach und Flugsi- 
mulator voll genutzt. Diese letzten 
beiden Programme werden wohl 
ebenso lange verkauft werden, wie 
der Spectrum erhältlich ist 


Durch die Strategie, eine Reihe ih- 
rer Produkte unter dem Label Sin- 
elairzu verkaufen, entstand für viele 
der Eindruck, Psion wäre mit Sin- 
clair viel enger verbunden, als es 
tatsächlich der Fall ist. Psion geht si- 
cher seine eigenen Wege. So hatte 
man sich bereits 1982 überlegt, die 
Firma nicht nur aufeinem Bein, den 
Spielprogrammen, stehen zu lassen. 

Psion begann bereits 1982 mit der 
Entwicklung eines Programm- 
Pakets für den professionellen An- 
wenderkreis. Es sollte die vier 
Hauptanwendungsbereiche, Text- 
verarbeitung, Datenbank, Kalkula- 
tion und Grafik, umfassen und sich 
neben Leistungsfähigkeit durch äu- 
Berst einfache Bedienbarkeit aus- 
zeichnen. 

Um ein solches Produkt in best- 
möglicher Art herzustellen, benötigt 
man laut Potter die besten Hilfmittel, 
und so entschloß man sich bei Psion, 
zur Entwicklung der Programme ei- 
ne »Mini Vax« anzuschaffen. Heute 
hat sich das Konzept, wie es scheint, 
derart bewährt, daß die Firma über 
vier dieser Computer verfügt. 

Als Sinclair dann unter anderem 
auch an Psion herantrat, und nach 
den Möglichkeiten fragte, Anwen- 
dersoftware für den in der Planung 
befindlichen QL zu entwickeln, war 
Psion der Konkurrenz bereits einige 
Monate voraus. Alle QL-Besitzer 
kennen die Programme, an denen 
Psion in dieser Zeit gearbeitet hat. 
Es sind Quill, Abacus, Archive und 
Easel, 

Hier erkennt man aber auch deut- 
lich die Unabhängigkeit von Psion. 
Sinclair erhielt lediglich die Lizenz, 
diese Programme mit dem QL auf 
Microdrive zu vermarkten. Psion 
selber vermarktet das Produkt un- 
ter dem Namen XChange für ande- 
re Computer, zum Beispiel den IBM- 
PC und Kompatible, Apricot und an- 
dere. Auch gibt es in England einen 
weiteren Computer, der als Massen- 
speicher Microdrives (von Sinclair) 
benutzt, den OPD (One per Desk) 
von ITT, und auch hier wird XChan- 
ge mit dem Gerät gleich mitgelie- 
fert. 

Interessant ist, daß XChange teu- 
zer ist, als der QL zusammen mit 
dem Software-Paket. Dabei kann 
man sagen, daß der Preis für 
XChange durchaus gerechtfertigt 
ist, betrachtet man Konkurrenzpro- 
dukte auf dem Markt für integrierte 


Sonderheft Spectrum 


Psion-Story 


Software. Dies unterstreicht Psions 
‚Ambitionen, die Nummer 1 unter 
den europäischen Softwarehäusern 
zu werden. 

Neben dieser Betätigung auf dem 
Geschäftssektor gehört seit Mitte 
letzten Jahres auch die Herstellung 
und Vermarktung von Hardware zu 
Psions Aktivitäten. Es handelt sich 
um den Taschencomputer »Organi- 
zer«. Er ist programmierbar und 
kann bis zu 32 KByte Daten spei- 
chem. Diese Kapazität wird dem- 
nächst sogar auf 64 KByte ausbau- 
bar sein. 

Dabei handelt es sich um einen 
Permanentspeicher, die Daten blei- 
ben sogar erhalten, wenn die Batte- 
rien ausgetauscht werden. Zusätz- 
lich verfügt das Gerät über eine 
RS232-Schnittstelle und kann, somit 
an alle Rechner, die eine solche 
Schnittstelle haben, angeschlossen 
werden, 

‚Wen wundert es, daß sich auch 
dieses Gerät als Volltreffer erwies. 
In den ersten sechs Monaten wur- 
den in England schon 20000 Stück 
davon verkauft. Zur Zeit stellt Psion 
für den Organizer Datenbanken auf 
Modulen her, so gibt es bereits »Me- 
dipak«, eine Datenbank, die beider 
medizinischen Krankheitsanalyse 
helfen kann. 

Bei all diesen Aktivitäten auf dem 
Geschäftsbereich könnte man mei- 
nen, daß keine Zeit mehr für den 
Heimcomputermarkt übrig bleibt. 
‚Aber Psion hat kein Interesse, sich 
aus diesem zurückzuziehen. Man 
will lediglich die größeren Möglich- 
keiten der neuen Mikroprozessoren 
nutzen und sieht wohl auch eine gro- 
Be Zukunft in solchen modemen 
Computern wie dem QL (und ande- 


zen). 

Daher ist es nicht verwunderlich, 
daß eines der ersten »Spielpro- 
gramme« für den QL auch aus dem 
Hause Psion stammt, das QL- 
Schach. Wiederum besticht das 
Programm durch Qualität. Dabei 
fasziniert nicht nur die hervorragen- 
de bewegte Grafik, sondern auch 
die Spielstärke des Programms. Zu- 
sammen mit reinen Schachcompu- 
tern konnte das QL-Schach im letz- 
ten Jahr Weltmeister der Schach- 
computer-Weltmeisterschaften wer- 
den. 

Ich frage Richard Lang, den Autor 
des Programms, ob er esjemals ge- 
schafft habe, gegen sein eigenes 


Werk zu gewinnen. Er lachte nur 
und meinte, er habe nicht die ge- 
ringste Chance. 

Es würde eigentlich zur Tradition 
von Psion gehören, einen Flugsimu- 
lator für den QL herzustellen. Je- 
doch gibt man nach außen hin keine 
Information über Programme, die 
nicht fertig sind. Auf meine Frage 
hin, wie ein möglicher Flugsimulator 
für den QL aussehen würde, gabes 
allerdings erstaunlich konkrete 
Ideen. 

Psion ist eine Firma, die stark 
durch die Persönlichkeit ihres Grün- 
ders David Potter geprägtist. Neben 
seiner wissenschaftlichen Qualifika- 
tion und dem Gespür für die Belan- 
ge des Markts scheint er auch die 
Gabe zu haben, sich die geeigneten 
Mitarbeiter auszusuchen. Und er 
weiß nur zu genau, daß eine solche 
Firma nicht ohne diese Mitarbeiter 
den gewünschten Erfolg haben 
kann. 

So ist es nicht verwunderlich, daß 
das Flaire, welches man spürt, wenn 
man die Räume dieser Firma betritt, 
außerordentlich wohltuend ist. Da- 
vid Frodsham, der die Abteilung 
‚Ausland leitet, führte mich durch al- 
le Räume. Nirgendwo gab es einen 
Mitarbeiter, der nicht bereit war, 
seine Arbeitzuunterbrechen und zu 
zeigen, was gerade seine jetzigen 
Probleme beziehungsweise Projek- 
te waren. 

Irgendwie hat man den Eindruck, 
daß alle diese Leute wissen, warum 
sie bei Psion und nicht irgendwo an- 


Der Hausherr von 
Psion: David Potter, 
ein Strahlemann 
‚der Branche 


ders arbeiten. Bemerkenswert war 
in diesem Zusammenhang David 
Potter's Äußerung, daß er eine Fir- 
ma haben möchte, in der die Mitar- 
beiter ihre Erfüllung finden können. 

David Frodsham drückte die Ein- 
stellung der Mitarbeiter wahr- 
scheinlich sehr treffend aus, als er 
sagte »Wir arbeiten nicht gegen je- 
manden, wir arbeiten für Psion, 
denn Psion, daß sind wir!« 


David Potter, der Mann 
hinter der Firma Psion 


Computer hatten ihn seit je her in- 
teressiert. Ehe David Potter mit 36 
Jahren die Firma Psion gründete, 
beschäftigte er sich mit Plasmaphy- 
sik und der Lösung der hier anfal- 
lenden Probleme mit Hilfe von 
Großrechnern. In entspannter At- 
mosphäre steht (oder besser sitzt) er 
bei einer Tasse Kaffee bereitwillig 
Rede und Antwort. 

Frage: Wie ist es zur Gründung der 
Firma Psion gekommen? 

David Potter: Schon immer habe ich 
viel darüber nachgedacht, was ich 
mit meinem Leben anfange, und ich 
würde es begrüßen, wenn man 
mehr als eines davon zur Verfügung 
hätte. Leider ist das nicht der Fall, 
und so muß man sich entschließen, 
wozu mansich entscheidet. Fürmich 
gab es seit je her einmal die akade- 
mische Laufbahn und als Alternati- 
ve den wirtschaftlichen Bereich. 
Durch mein Elternhaus lag es nahe, 


Psion-Story 


an die Universität zu gehen, und für 
einige Jahre habe ich dort nach der 
Promotion Lehre und Forschung be- 
trieben. Dabeihat mich die Weltder 
Computer fasziniert und ich habe ei- 
nige Artikel unnd Bücher über den 
Einsatz von Computern in der For- 
schung geschrieben. Mit der Ent- 
wicklung der Mikrochips eröffnete 
sich für mich die Möglichkeit, auch 
mein zweites Interesse, eine eigene 
Firma zu haben, ohne auf den Um- 
gang mit Computern verzichten zu 
müssen, zu verwirklichen. 

Allerdings habe ich mir die Ent- 
scheidung, die akademische Lauf- 
bahn aufzugeben, nicht leicht ge- 
macht. Ich muß gestehen, daß die 
Höhe der Gehälter für Forscher an 
englischen Universitäten auch ei- 
nen Einfluß aufmeine Entscheidung 
hatte. 

Frage: Die Gründung einer Firma ko- 
stet doch auch einiges Geld. Hatten 
Sie diese Mittel zur Verfügung? 

D. Potter: Ich hatte 1974, alsich anfing, 
konkret über eine Firma nachzu- 
denken, 2000 Pfund auf meinem 
Konto. Dieses Geld habe ich in Ak- 
tien angelegt. Zu dieser Zeit war ich 
gerade an der Universität von Cali- 
fornien. Als ich nach England zu- 
rückkehrte, hatte sich mein Einsatz 
glücklicherweise verdreifacht. Das 
hat mich ermutigt, systematisch an 
der Börse Geld zu investieren. Als 
ich dann soweit war und 50000 
Pfund zusammen hatte, nahm sich 
meine Frau das Geld und kaufte ein 
Haus. 

Das war sicher gut so, da wirauch 
Kinder haben. Allerdings mußte ich 
mit der Börse wieder von vorne an- 
fangen, um das Startkapital zu be- 
kommen, die Firmazu gründen. Aus 
der Tatsache, daß es Psion gibt, kön- 
nenSie erkennen, daßmir diesauch 
ein zweites Mal gelungen ist. 

Frage: Wann waren Sie soweit? 

D. Potter: Im Oktober 1980 wurde 
Psion gegründet. 

Frage: Wieviele Mitarbeiter hatten 
Sie? 

D. Potter: Angefangen hat Psion als 
Ein-Mann-Betrieb. Ich habe zu- 
nächst Produkte gesucht, die gut 
waren, aber wo es an der Vermark- 
tung fehlte. Damit kam das erste 
Geld herein. Sokonnte ich daraufhin 
arbeiten, mein eigentliches Ziel zu 
erreichen, die Entwicklung von ei- 
genen Produkten. 

Nachdem im ersten Jahr 12000 
Pfund Umsatz gebracht hatte und 
Charles Davies so kühn war, sichmir 
anzuschließen, konnten wir im näch- 
sten Jahr schon einen Umsatz von 
‚620000 Pfund erreichen. Sicher war 
die frühe Mitarbeit von Charles Da- 


vies sehr gut für die Firma. Ich kann- 
te ihn sehr gut vom Imperial College 
hier in London, da er bei mir seine 
Doktorarbeitschrieb. Er war derbe- 
ste Student, den ich kennengelernt 
habe, 
Frage: Wie kam eszu der Zusammen- 
arbeit mit Sinclair? 
D. Potter: Anfangs waren wir für Sin- 
clair ein Software-Haus wie jedes an- 
‚dere. Wir habensicher sehrfrüh die 
guten Chancen des ZX81 erkannt 
und versucht, das Potential auch die- 
ses kleinen Computers voll auszu- 
nutzen, Im Prinzip war es eine ver- 
rückte Idee, einen Flugsimulator für 
den ZX8] zu konzipieren. Aber das 
Projekt war sehr erfolgreich genau- 
so wie das Schachprogramm, Sin- 
dlairhatdadurch umgekehrterkannt, 
daß unsere Software dem Erfolg ih- 
rer Produkte nur zugute kommt. 
Frage: Wie steht es mit den Arcade- 
Games? 
D. Potter: Ja, wir haben auch einige 
Arcade-Games produziert, aber 
das war nie unser Hauptanliegen. 
Vielmehr lag uns immer mehr an 
Spielen, bei denen der Benutzer 
auch ein wenig nachdenken muß, 
NehmenSie Scrabble, wirhaben ein 
Programm entwickelt, welches ei- 
nen Wortschatz von 12000 Worten im 
48-KByte-Spectrum zur Verfügung 
stellt, und der durchschnittliche 
Spieler wird sicher vom Programm 
geschlagen. 
Frage: Offensichtlich liegen Sie mit 
Ihrem Konzept nicht falsch. 
D. Potter: Nein, ich glaube nicht. 
Schon im dritten Jahr des Bestehens 
von Psion konnten wir 1,5 Millionen 
Pfund umsetzen, und das bestätigt, 
daß unsere Produkte die Zustim- 
mung der Benutzer haben. Wir sind 
jetzt bei einem Umsatz von 10 Millio- 
nen Pfund angelangt, wobei aller- 
dings berücksichtigt werden muß, 
daß mittlerweile ein nicht unerhebli- 
cher Teil hiervon aus unseren Akti- 
vitäten im professionellen Bereich 
herrühren. 
Frage: Wie sieht die Zukunft von 
Psion aus? 
D. Potter: Wir haben ein wichtiges 
Ziel erreicht, nämlich die Tatsache, 
aß wir die Firma auf solidem 
Grund fest etabliert haben. Dies ge- 
schah dadurch, daß wir uns neben 
dem reinen Spiele-Markt für Heim- 
computer auch den professionellen 
Markt durch XChange und den Or- 
ganizer geschlossen haben. 

Durch die großen Umsatzzahlen 
sind wir in der Lage gewesen, ver- 
schiedene große Computer anzu- 
schaffen, so daß wir hervorragende 
Hilfsmittel zur Entwicklung unserer 
Produkte zur Verfügung haben. 


Dies wird uns auf dem Weg helfen, 
die Nummer einsunter den europäi- 
‚schen Software Häusern zu werden. 
Frage: Wie steht es mit dem amerika- 
nischen Markt? 

D. Potter: Natürlich haben wir auch 
diesen Markt im Auge. Es gibt be- 
reits eine Abteilung Psion USA in 
den Staaten, und wir werden in na- 
her Zukunft XChange dort vermark- 
ten. 

Frage: Mit all den Erfolgen auf dem 
Business-Sektor, ziehen Sie sich aus 
dem Heimcomputer-Markt völlig zu- 
rück? 

D. Potter: Oh nein! Wir wissen sehr 
genau, womit wir groß geworden 
sind, und wir werden diesen Markt 
sicher nicht verlassen. Was wir in 
der Zukunft hier produzieren wer- 
den, können Sie am QL-Schach se- 
hen. 

In nicht allzu ferner Zukunft wer- 
den die sogenannten Heimcompu- 
ter noch wesentlich leistungsfähiger 
sein, wie man am QL ja sehen kann. 
Maschinen wie der Macintosh sind 
letztlich »Heimcomputer«. Für diese 
Computer gilt es, Software herzu- 
stellen, die den Möglichkeiten, die 
sie eröffnen, gerecht werden. Und 
Psion wird sich hier stark engagie- 
zen. 

Frage: Welche Software wird Psion in 
5 und in 10 Jahren produzieren? 

D. Potter: Hoffentlich sehr viel! Wir 
glauben, daß auf dem Gebiet der 
künstlichen Intelligenz, was immer 
damit gemeint ist, sehr viel passie- 
ren wird. Nehmen Sie als Beispielet- 
was, was ich gerne als Sprach- 
Prozessor bezeichne. Heute haben 
wir Textverarbeitungssysteme, und 
kaum jemand, der ein gutes System 
— wie Quill — benutzt hat, mag die 
Möglichkeit, die sich dadurch erge- 
ben, noch missen. 

Der nächste Schritt ist ein Pro- 
gramm, welches die Rechtschrei- 
bung überprüft, Nun, solche Pro- 
gramme gibt es bereits und sind ei- 
gentlich ein großes Problem, sobald 
nur genügend Speicherkapazität 
zur Verfügung steht, Dann kommt 
der Schritt, die Grammatik zu über- 
prüfen. Auch das ist bereits möglich 
und auch Psion wird bald ein sol- 
ches Programm auf den Markt brin- 
gen. Wenn man sich dies betrachtet, 
dann kann man das folgende auch 
bereits sehen, nämlich ein Pro- 
gramm, welches den Stil des Doku- 
ments überprüft, Auch hier ist im 
Prinzip nur die Speicherkapazität ei- 
ne notwendige Vorraussetzung. 

Der Sprachprozessor ist dann ver- 
wirklicht, wenn der letzte Punkt ver- 
wirklicht ist, die Spracheingabe, Ich 
hoffe, daß Psion in sagen wir fünf Jah- 


Psion-Story 


zen auf diesem Markt ein wichtiges 
Wort mit zu reden hat. 

‚Aber das ist natürlich nicht das 
einzige. Die Computer in den neun- 
ziger Jahren werden immer »intelli- 
genter«, neben der Spracherken- 
nung wird es auch über eine Kame- 
ra die Bilderkennung geben und ir- 
gendwann werden die Computer 


uns sicher nicht in den Fähigkeiten 
nachstehen, die anfallenden Aufga- 
ben zu erledigen. 

Ob dies vom philosophischen 
‚oder theologischen Standpunkt aus 
gesehen sinnvoll ist, steht auf einem 
anderen Blatt. Wir wissen, daß der 
Mensch die Dinge verwirklicht, zu 
denen er fähig ist, und genauso wird 


‚es mit dem Bau von leistungsfähige- 
ren Computern sein. 

Frage: Eine letzte Frage: Sie verdie- 
nen mit Ihrer Firma sichereine Men- 
ge Geld. Warum kaufen Sie sich 
nicht irgendwo in der Südsee ein 
Stück Land und setzen sich zur 
Ruhe? 

D. Potter: Das ist langweilig! D 


Die Multis kommen 


Wer immer noch meint, Deutschland würde Ländern 


wie England und den USA in der Eaeehlkng 
Hard- und Software für Homecomputer nach 


von 
inken, 


kann jetzt eines Besseren belehrt werden. 


nzwischen übersetzen deutsche 

Firmen nicht mehr gute englische 

‚Anwenderprogramme, sie schrei- 
ben sie selber — und das gar nicht 
so schlecht, wie das folgende Bei- 
spiel einer deutschen Firma zeigen 
wird, die inzwischen ein ganzes Pa- 
ket leistungsstarker Soft- und Hard- 
ware für den Spectrum anbietet. 

Angefangen hat alles mit Multifile, 
einem Adreßverwaltungsprogramm, 
das in Zusammenarbeit mit Tas- 
word, Briefe selbständig adressiert 
und die Texte mit einer Anrede — 
wahlweise mit »Sehr geehrter Herr 
X, Frau Y oder Damen und Herren« 
— versieht, 

Die Idee für dieses Programm ent- 
stand aus der eigenen Notlage Hun- 
derte von Rundbriefen per Hand 
adressieren zu müssen. Da dereng- 
lische Softwaremarkt in dieser Hin- 
sicht nichts anbot, machte man aus 
der Not eine Tugend und entwickel- 
te eine voll menügesteuerte und im 
Maschinencode geschriebene 
Adressendatei, die zudem noch 
sehr anwenderfrendlich ist, das 
durch die menügesteuerte Maske, 
das Lesen langweiliger und lang- 
wieriger Beschreibungen nahezu 
entfällt. Nach anfänglichen Schwie- 
tigkeiten, Datenverwaltung und 
Tichtige Anrede miteinander zu ver- 
knüpfen, ist nun auch dieses Pro- 
blem gelöst. Das Programm sortiert 
selbständig nach Nachnamen; An- 
rede und Adressierung erfolgen 
trotzdem in richtiger Reihenfolge, 
zum Beispiel »Sehr geehrte Frau 
Mustermann« und nicht »Frau Mu- 
stermann, Erika«. Und wen die alte 
Version stört, kann sie, gegen einen 
geringen Aufpreis, gegen die neue 
Version umtauschen. 

Fast die gleiche Maske wie bei 
Multifile findet sich auch bei Multila- 


ge. Hierbei handelt es sich um ein 
Artikel- und Lagerverwaltungssy- 
stem, das alle gebräuchlichen Infor- 
mationen einer Warenverwaltung 
beinhaltet, 

Erstellt wird sowohl eine Artikelli- 
ste mit Vekaufspreisen wie auch ei- 
ne Inventurliste mit den dazugehö- 
renden Einkaufspreisen. Außerdem 
werden Artikel, die den Mindestbe- 
stand unterschreiten, besonders 
ausgeworfen. Beide Listen können 
auch über den Drucker ausgege- 
‚ben werden. 

Auch bei Multilage ist die Bedie- 
nung sehr einfach, da menügesteu- 
ert, das Sort der pro Datei mögli- 
chen 332 Artikel sehr schnell. 

Die dritte Datei in diesem Multi- 
Bund ist neu: Multidata — eine uni- 
verselle Datei, bei der der Anwen- 
der seine Maske mit Hilfe eines Full- 
Screen-Editors selbst erstellen 
kann. Obligatorisch sind auch hier 
die 64 Zeichen/Zeile. Eine Bedie- 
nungsleiste im unteren Teil des Bild- 
schirmszeigt an, mitwelchen Tasten 
man Unterprogramme wie Su- 
chen/Löschen anwählt. Auch hier ist 
das Suchen und Sortieren der Daten 
sehr schnell und erfolgt nach belie- 
bigen Kriterien. 

Die Daten von Multidata können 
durch ein Code-Wort verschlüsselt 
werden und sind für Unbefugte 
nicht einsehbar. Einen weiteren Vor- 
teil bietet diese Datei durch die 
Möglichkeit, die Formatierung für 
den Drucker selbst zu bestimmen. 
Zur Verfügung stehen zwei Formate 
(Etiketten und Listen), die auch bei 
bereits erstellten Dateienform ver- 
änderbar sind, so daß mit gleichen 
Daten sowohl Etiketten wie auch Li- 
stenausdrucke möglich sind. 

Alle drei Multi-Dateien werden 
auf Kassette geliefert, sind aber oh- 


ne Probleme direkt auf Diskette be- 
ziehungsweise Microdrive-Cart- 
zidge überspielbar und somit aufal- 
len drei Datenträgern zu nutzen. 

Doch Multi-Produkte beschrän- 
ken sich nicht nur auf Dateien. Spe- 
ziel für das Beta-Disc-Floppy- 
System wurde eine Reihe von Pro- 
grammen neubearbeitet bezie- 
hungsweise neuentwickelt, Multitas 
istzum Beispiel eine Erweiterung für 
das Tasword, bei der die Option für 
die Blockverschiebung stark ver- 
bessert und beschleunigt wurde. 
Auch das Suchen bestimmter Worte 
‚im Text ist jetzt wesentlich schneller. 

Eine ähnliche Weiterentwicklung 
ist Multipas. Hier wurde das Hisoft 
Pascal an den Floppy-Betrieb ange- 
paßt, wobei jetzt selbst die Include- 
Funktion auf Diskette möglich und 
DOS-Befehle ausdem Compiler auf- 
rufbar sind. Ein besonderer Lecker- 
bissen für alle Floppy-Besitzer dürf- 
te der »Disketten-Doktor« Multidisc 
sein, daß an anderer Stelle in die- 
sem Heft beschrieben wird. 

Und daß demnächst deutsche Fir- 
men auch aufdem Hardware-Sektor 
mitreden können, beweist dasneue- 
ste Multi-Produkt: Multicom — eine 
Schnittstelle für Datenfernübertra- 
gung. Als absolute Weltneuheit und 
früher als englische Firmen es an- 
‚bieten konnten, ist der Spectrum mit 
Hilfe einer RS232-Schnittstelle und 
der dazugehörenden Software so- 
wie einem Akustik-Koppler jetzt in 
der Lage, mit anderen Computerty- 
pen fehlerfrei zu kommunizieren. 
Der Weg in alle Mailboxen des In- 
und Auslands ist frei, da sowohl die 
Übertragungsrate (7 oder 8 Bit) als 
‚auch Stop-Bits (1 oder 2) und Parity- 
Bits (gerade oder ungerade)freiein- 
stellbar sind. Übertragen wird mit 
‚300 Baud, allerdings sind als Option 
für den Export auch andere Über- 
tragungsgeschwindigkeiten mög- 
lich, 

Mit dieser Neuentwicklung ist al- 
so (fast) der letzte Schritt getan, das 
Image des Spectrum aufzupolieren. 
Außerdem zeigt das Beispiel auch: 
Estutsich was, auchin diesem unse- 
ren Lande, 

(Karina Krawezyk) 
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zung u eine Hilfe ist. Ein kon 
Beier mı kommentieren, wure | Professionelle Programme für die Datenverarbeitung 
a ned enerüb-| im Büro, in der Lagerverwaltung, für komplizierte 
Ig sprengen. . wei . f . 

Solten Ihnen nach KursEnde | Berechnungen sind überwiegend in Maschinenspra- 
noch einige Fragen unbeantwor. : k 
ict geblieben sei, so schreiben | Che geschrieben. Nur dann laufen sie entsprechend 
nz [euwerne gen see | schnell: Happy-Computer stellt, gewissermaßen aus 
Meine Anschrit äinden Sie am dem Baukasten, einen Satz leistungsstarker Maschi- 


Ende dieses Sonderheftes. Bitte 


fügen Sie Rückporto bei. nencoderoutinen vor, mit denen ein Spectrum-Besit- 
(Harald Wihelm) | Zer in der Lage sein sollte, auch Programme für 
ernsthafte Anwendungen zu schreiben. 
oraussetzung sind allerdings 
Vs in Maschinen- 
sprache und ein 48-KByte- 
Spectrum. Vom Prinzip her lassen Listing 
Bas Koulinen aufjeden anderen | Nr Art der Routine Adresse > Start — Ende 
CPC 464 eier den Ben QX10 
übertragen. Der Computerbesitzer 
muß allerdings die Speicherbele- 1 DIM-Befehl EA60 EAA1 
m Rs Sapusn a 2 Deutscher Zeichensatz EAA2 EE16 
une ie iressen ändern. Weiter- 
hin müssen Sie einen Assembler be- 3 _ SCREEN$-Farben EE17 EE31 
Sizen, der Labels verarbeite. 4 PRINT-Routine EE32 EE4B 
Die Palette der Routinen beginnt M 
beider Anlage von Stringarraysund 5 _ Tastatur-Abfrage EE4C EEC3 
führt über leistungsstarke Printrouti- 6 String-Abfrage EEC4 EEDB 
a 7 Eingabefelder markieren EEDC EEE4 
Ten. der ee 8 _ Feldmarkierungen löschen EEES EEEA 
5 Auf Se Fe g Vergleich der Eingabe EEEB EEFD 
hingewiesen argen uBegim | 10 Ausgabe von Datenfeldern EEFE EFO6 
11 Zahlenausgabe EF07 EF6B 
12 __PLOT-/DRAW-Routine EF6C EFTA 
2 : 13 __PLOT-/DRAW-Routine EF7B EF89 
’eichen wird als Code r 
übergeben. 14 PLOT-/DRAW-Routine EF8A EF98 
15 PLOT-/DRAW-Routine EF99 EFA7 
Label definieren 16 _ SCROLL-Routine EFA8 EFFC 
x 17 Sortier-Routine EFFD F1D2 
a Don a 18 Zahlen-Umwandlung Fi1D3 F241 
Voraussetzungen geschaffen wer- | 19 ‚String-Operation F242 F27A 
den. Der a = 20 Sitring-Operation F27B F29B 
A ee ließen || 21  String-Operation F29C F2C6 
muß der Bildschirm mit folgender 22 Wandlung dezimal > hexadezimal F2C7 F36C 
en: 23 __LOAD-/SAVE-Routine F36D F37A 
CALL #160] 24 __LOAD-/SAVE-Routine F37B F387 
be a er Bid | 25 LOAD-/SAVE-Routine F388 F3A8 
cheaufeine eigentümliche Artur | 26  LOAD-/SAVE-Routine F3A9 F3C1 
Weise berechnet. Die Zeilen wer- 
den von oben (24) nach unten (l) ge- 
zählt. Die Spalten werden von links 
(33) nach rechts (2) gezählt. Liste der Maschinencode-Routinen 
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EAaso 


0028 
0064 
SC4B 
EAso 
EA63 
Ea6s 
EA67 
EAsA 
EA6B 
Easc 
BASE 
EA6F 
EAr2 
Ea73 
Eara 
EA7S 
EA76 
EA78 
EA?? 
EArC 
EA7D 
EAFE 
EAFF 
EAso 
Eass 
Eass 
Eaas 
Eass 
EA87 
Eaas 
Easa 
EasB 
Easc 
EAaF 
za 
EAs2 
EA9S 
EA96 
EA9F 
EA9B 
Easc 
EA9D 
EAFE 
EA9F 
EAAı 


ZAsBSC 
E5 
OLASOF 
cDS516 
33 

es 
36c1 
23 
O1ASOF 
71 

23 

70 

23 
3602 
23 
012800 
71 

23 

70 

23 
016400 
7ı 

23 

70 

23 
3620 
54 

so 

13 
O1FFoF 
EDBO 
ei 
11440F 
19 
016500 
3680 
23 

08 

78 

Bi 
zors 
c 


ORG 

er 

*%*%* LISTING 

En 

ANZAHL EQU 

LAENGE EAU 

vars Eau 

START LD 
PUSH 
LD 
CALL 
Por 
PUSH 
LD 
Inc 
LD 
ıD 
INC 
LD 
Inc 
LD 
ING 
LD 
LD 
INC 
LD 
Inc 
ıD 
LD 
ING 
LD 
ING 
LD 
ıD 
LD 
INC 
LD 
LDIR 
Por 
LD 
ADD 
LD 

LOOPO1 LD 
Inc 
Dec 
LD 
or 
IR 
RET 

xL+ 

Er 

*# LISTING 

“ 

CHARS Eau 

SETCHA LD 
LD 
ıD 
LDIR 
LD 

SETCHI LD 
ING 
LD 
Inc 
ıD 
or 
IR 


60000 
1 


so 
100 

23627 

HL, (VARSI 

HL 

BC, ANZAHLXLAENGE+B 
#1655 

HL 

HL 

KALI, 193 

HL 

BC, ANZAHLXLAENGE+S 
(ALI,C 

HL 

HLI,B 

HL 

HLI,Z 

HL 

BC, ANZAHL 

(HLISC 

HL 

(HLI,B 

HL 

BC,LAENGE 

(HLI,C 

HL 

(HLI,B 

HL 

SP) 

D,H 

EL 

DE 

BC, ANZAHLKLAENGE-1 


HL 
DE,ANZAHL-1LAENGE+@ 
HL,DE 

BC,LAENGE+1 

(HL), 128 

HL 

Bc 

A,B 

© 

NZ,LOoPo1 


2 


23606 
BC,768 
HL,15616 
DE,CHARSE 


HL,NEUCHA 
E, CHL) 

HL 

D, (HL) 

HL 

A,D 

E 

Z, SETCHZ 


Position beziehen 

Um nun eine Position aufdem Bild- 
schirm zu setzen, laden Sie die ent- 
sprechende Zeilennummer in das 
Prozeßregister B und die Spalten- 
nummer in das Register C. Die Be- 
fehlsfolge 

LD BC, #1821 
CALL #0DD9 
setzt nun die Printposition AT 0,0. 
Ein Zeichen bringen wir mit fol- 
gender Folge auf den SCREEN: 
LD A,'A” 
RST 16 
In diesem Fall wurde das Zeichen A 
in den Akkumulator gebracht, und 
mit dem zweiten Befehl gedruckt. 

Da wir sehr oft Screenergebnisse 
erhalten werden, sollte man sich 
diese Befehle auf jeden Fall mer- 
ken. 

Dimensionierung 
(Assemblerlisting 1) 

Die erste Routine simuliert einen 
DIM-Befehl in Maschinensprache. 
Beschränkt wird die ganze Ängele- 
genheit aufzweidimensionale String- 
arrays. 

Große Datenmassen sollen für 
den Programmiererschnellundein- 
fach zugänglich sein. Ebenso ist die 
Voraussetzung vorgegeben, daß 
diese Datenfelder auch aus Basic 
anzusprechen sind. Was:ist da einfa- 
cher, als die hauseigenen Spec- 
trum-Variablen zu mißbrauchen. 


String-Konstruktionen 

Die vorgestellte Routine legt ein 
Stringarray an. Sie vergebeninZeile 
10 die Anzahl der Felder +1, und in 
Zeile 20 die Länge jedes Feldes. Das 
Addieren der 1 ist notwendig, da 
das ganze letzte File nicht benutzt 
werden kann. Das geschieht aus fol- 
gendem Grund: 

Um das Ende der Datei zu erken- 
nen, suchen wir im Speicherbereich 
das angehängte Stopbyte (128); sie- 
'he Spectrum-Manual Seite 165. Da 
dieses durch weitere, später ange- 
hangene Variablen, nach oben ge- 
schoben wird, würden wir dasEnde 
der Datei nie finden. Aus diesem 
Grund belegen wir das letzte File 
mit 128. Irgendwo finden wir das 
Ende-Zeichen jetzt immer. 

Die Funktionsweise ist eigentlich 
ganz einfach. Wir holen aus der Sy- 
stemvariablen VARS die Anfangs- 
adresse des Variablenbereiches, 

An dieser Stelle beschaffen wir 
uns mit dem 

CALL #1685 
die Gesamtlänge, berechnet aus 
Anzahl*Länge +8, Platz. Die 8 Bytes 
sind Informationen an das Betriebs- 
system des Spectrum. 
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Wir schreiben nun in diese 8 By- - 
tes folgende Daten 
EABe 0608 590 iD 8,8 
EABA 7E 600 LOOPO2 LD A,tHL) 
. EABB 12 sıo ID «nE1,Aa 
Byte l: indizierter Variablenname. ERBE AS EN 
Hier wird der Code des Zei- 
(chens +128 eingeschrieben. En: eg ale 
Byte 2: Die folgenden 2 Bytes sind EABE. 10FA ‚640 DINZ LOOrOZ 
und3: die Gesamtlänge, Berechnet Eaco 18EE sso IR SETCHL 
aus Anzahl*Länge-+8 Eac2 ZICFEA 660 SETCH2 LD HL,CHARSE 
Byte 4: Anzahl Dimensionen (2) EACS 110001 670 LD DE,256 
Byte 5: Hier wird die Anzahl der Eacs Ar seo xoR A 
und 6 Felder eingefügt EAC9 EDS2 670 SBC HL,DE 
Byte 7: Hier wird die Länge eines EAcB 22365c 700 LD  CHARSI,HL 
und 8: Feldes eingetragen. ARTE A nn 
EACF 720 CHARSE DEFS 768 
EDer A7ED 730 NEWCHA DEFW 91X8+CHARSE 
EDDi 22001602 740 DEFB 34,0,28,2,30,34,30,0 
Mitdiesen8ByteserkenntdasBe | enpps aren 750 DEFW 92%8+CHARSE 
triebssystem sofort alle Syntaxfeh- | epps 22001022 7s0 DEFB 34, 0,28,34,34,34,28,0 
ler. Ebenfalls kann durch die Anga- EDES B7ED 770 DEFW 93X8+CHARSE 
be der Gesamtlänge+5 dieser Va- | enes 22002222 7eo DEFB 34,0,34, 34,34, 34,28,0 
nablenblock übersprungen wer- | enen #ren 790 DEFW 94%8+CHARSE 
den. Unsere Routine füllt jetzt noch | Ener oose447e &00 DEFB 0,56, 68, 120, 68,68, 120,64 
den gesamten restlichen Speicher- EDF? AFEC sıo DEFW S9X8+CHARSE 
bereich mit Blanks, Zu diesem | Enrs a2sca242 e26 DEFB 66,60,66,66, 126,66,66,0 
Zweck wird der Schaufelbefehl EEO1 Arec 830 DEFW 60%*8+CHARSE 
LDIR benutzt, Zwischen Zeile 360 | EEos a2sc4242 a0 DEFB 66,60, 66,66, 66,66,60,0 
und 410 wird das letzte File mit | Eeos szec 850 DEFW 61X8+CHARSE 
128ern gefüllt. In derletzten Zeile er- 
folgt der Rücksprung. 


CI” - ALLES IM GRIFF! 


DER AUFRÜSTSATZ — 
VOM SPECTRUM 
ZUM SPEGTRUM 


Esist drauf. 


wirklich und das alles 5 ein 

so: seit heute können Sie für ganze h - BE haste 
selbst mit wenigen Handgriffen 98,— DM BT ee 
aus Ihrem SPECTRUM einen Sie können alles per Coupon — soil ‚ügl. Na ne-Gei 
SPECTRUM PLUS machen. Mit ordern oder laufen m München Be: a 
der richtigen Tastatur und 17 ganz schnell in das: i Aufrüstsatz SPECTRUM PLUS 
Tasten mehr und einer großen mit Cassette und Handbuch Nr. 20046 — DM 98,—* 
Space-Taste, Aus- und An-Scha- (Narr ne 
ter. Und eine Einführungscassette. STWDIO > en 


und das neue farbige deutsche Compuer-Aussiter. 


Handbuch legen wir für Sie noch Kreuzstr. 13 - 8000 München 2 Unterschrit 


EEOD 42004242 860 
EE1S 0000 870 
871 *L+ 
872 x* 
873 
87 
0007 880 INK 
0000 890 PAPER 
0000 900 BORDER 
EE17 cD4D0D 910 FARBE 
EEIA 3E10 920 
EEIC 07 930 
EEID 3E07 940 
EEIF 07 950 
EEZO cDADIc 960 
EE2S sE11 970 
EE2S D7 980 
EE26 3E00 990 
EE28 D7 1000 
EE29 CDADIC 1010 
EEZC E00 1020 
EEZE CD9B22 1030 
EESI c9 1040 
1041 #L+ 
1042 #* 
1043 
1044 #* 
EEI2 46 1050 PRINTI 
EESS 23 1060 
EE3S4 4E 1070 
EESS 23 1080 
EES6 ES 1090 
EES7 CDDs0D 1100 
EESA E1 1110 
EESB 46 1120 
EESC 23 1130 
EESD c5 1140 PRINTZ 
EESE 7E 1150 
EESF 23 1160 
EE4O ES 1170 
EE41 07 1180 
gEa2 Eı 1190 
EE4S cı 1200 
EE44 10F7 1210 
EE46 7E 1220 
EEA7 FEBO 1230 
EE49 2067 1240 
EEAB c9 1250 
1251 #L+ 
1252 x8* 
1253 
1254 


%% LISTING 3 


*%* LISTING 4 


DEFB 66,0,66,66,66,66,60,0 
DEFW oO 


gau 7 
Eau 0 
Eau 0 
SALL 
LD 


RST 
ALL 
LD 


CALL 
LD 
CALL 
RET 


A, BORDER 
#227B 


ıD 
INC 
Lo 
INC 
PUSH 
ALL 
POP 
LD 
INc 
PUSH 
ıD 
Inc 
PUSH 
RST 
Pop 
Pop 
DINZ 
LD 
cp 
IR 
RET 


B, (HL) 
HL 
S,iHL) 
HL 
HL 
#0DD9 
HL 


16 


sc 

PRINTZ 

Ar tHL) 
128 
NZ,PRINTI 


34% LISTING 5 
ver 


| 


Aufgerufen wird diese Routine mit 
CALL START. Andere Variablen 
dürfen nur nach dem Aufruf defi- 
niert werden. 

Nachdem wir nun ein Datenfeld 
anlegen können, wollen wir natür- 
lich auch Menüs, Kommentare oder 
Fehlermeldungen auf den Bild- 
schirm bringen. Diese sollen, da wir 
deutsch sprechen, auch die deut- 
‚schen Umlaute enthalten. 

Zeichensatz erneuern 
(Assemblerlisting 2) 


an se 


Diese Routine fertigt einen neuen 
Zeichensatz mit deutschen Umlau- 
ten an. Sie wurde so variabel ge- 
schrieben, daß Sie auch Zeichen 
umdefinieren können. 

Wenn dieses Unterprogramm mit 
CALL SETCHA aufgerufen wird, ko- 
piert es erst einmal den Originalzei- 
chensatz in einen Bereich mit dem 
Namen CHARSE, 

Sie liegt nun das erste Byte unse- 
rer Änderungen und prüftesaufEn- 
de (0). Wenn hier keine 0 steht wer- 


den die nachfolgenden 8 Bytes in 

den mit der Adresse spezifizierten 

Bereich eingeschrieben. Anschlie- 

ßend wird die Systemvariable 

an neu berechnet (CHARSE- 
) R 

Wenn Sie mit eigenen Änderun- 
‚gen arbeiten, ziehen Sie vom ASCI- 
Code des zu ändemden Zeichens 
den Wert 32 ab. Schreiben Sie das 
Ergebnisalserste Zahl in dasanson- 
sten identische DEFW Statement. 

Ihre Vorschläge kommen in das 
DEFB Statement. Vergessen Sie 
nicht, am Ende die 0 anzuhängen. 

Diese beiden Routinen sollten von 
Ihren Programmen immer zuerst 
aufgerufen werden. Der Bildschirm 
soll natürlich auch noch Farbe be- 
kennen. 

Die nachfolgende Kurzroutine 
nimmt Ihnen diese Arbeit ab, 
(Assemblerlisting 3) 

Diese Routine rufen Sie mit CALL 
FARBE auf. Bei Return entspricht die 
Bildschirmfarbe Ihren Wünschen, 

Es gibt hier keinerlei Besonder- 
heiten, die beachtet werden müs- 
sen. Diese Teile müßten eigentlich 
ohne große Erklärungen zu verste- 
hen sein. Es werden lediglich die 
Spectrum-Steuerzeichen benutzt. 
(Assemblerlisting 4) 

Die nachfolgende Routine ent- 
stand, nachdem klar war, daß in 
kommerziellen Programmen ein 
ständiger Menü-Aufbau notwendig 
und somit unerläßlich ist und nach- 
dem folgende Bedingungen an sie 
geknüpft wurden: 


1. Die zu druckenden Zeichen sollen di; 
rekt auf eine, mit dem Ausdruck fest 
verbundene, Position gesetzt werden. 

2. Das nötige CR muß angehängt werden 
können 

3. Die Zahl der Zeichen muß variabel 
sein. 

4. Mehrere Ausdrücke sollen mit einem 
‚Aufruf gedruckt werden 


Diese kurze Routine erfüllt diese 
Anforderungen. Allerdings soll das 
Datenfeld aus den oben genannten 
Gründen ein ganz bestimmtes For- 
mat haben: 


DATO0l DEFW #182] ; Position 
DEFB 6 ; Zeichenzahl 
DEFM "TEXT!" ; Text 
DEFB 13 ; CR 
DEFB 128 ; Ende 


Der Aufruf geschieht nun nach fol- 
(gendem Muster: 
LD HL,DAT001 
CALL PRINT] 
Sind die beiden ersten Bytes in 
das Doppelregister BC geladen, 
wird diese Position auf dem Bild- 
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schirm gesetzt, Anschließend wird 
die Anzahl der Zeichen, einschließ- 
lich CR, in das Zählregister B gela- 
den. Nun wird, bis B auf 0 ist, Zei- 
chen für Zeichen geladen, und auf 
den Bildschirm gebracht. 
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Das dann folgende Byte ist entwe- 
der ein Stopbyte (128) oder die Zei- 
lenposition des nächsten Aus- 
drucks. 

‚Wenn Sienoch weitere Ausdrücke 
‚ein- oder anfügen wollen, so schie- 


Kurs 


2 Sie das Stopbyte immer an das 
le, 


In meinen eigenen Programmen 
werden auf diese Art und Weise 
ganze Menüs aufden Bildschirm ge- 
bracht; und das verhältnismäßig 


Nun haben wir mit einem Aus- 
druck den Benutzer aufgefordert, 
‚eine Eingabe zu tätigen. Eine Tasta- 
turabfrage muß her. 

Die Tastaturabfrage 

Die Tastaturabfrage (Listing 8) ist 
zugegebenermaßen das schwierig- 
ste Unterfangen. Diese Routine soll- 
te selbständig auswerten und die 
Umlaute auf bestimmte Tasten le- 
gen. Die Routine führt die im Spec- 
trum-ROM liegenden Auswertungs- 
zoutinen aus, und legt die Umlaute 
auf folgende Tasten: 


ä = SYMBOL SHIFT a 
ö = SYMBOL SHIFT s 
ü = SYMBOL SHIFTd 
% = SYMBOL SHIFT f 


Wenn Sie sich ein wenig mit der 
Routine beschäftigt haben, können 
Sie die Umlaute auch auf Tasten le- 
gen, die Ihren Vorstellungen ent- 
sprechen. 

Dieses Unterprogramm wird mit 
CALL GET aufgerufen. Sie springt 
nur bei einer gedrückten Taste zu- 

ck. 


rück. 

Der Code der gedrückten Taste 
befindet sich zur Weiterverarbei- 
tung im Akkumulator. 

Der Zeichenspeicher wurde in 
dieser Routine auf 23728 gelegt. Soll- 
ten Sie mit dem Beta-Disk-Floppy- 
laufwerk oder mit dem Interface ZX- 
LPRINT Ill arbeiten, können bei äl- 
teren Versionen Komplikationen auf- 
treten. Legen Sie in diesen Fällen 
den Zeichenspeicher auf einen an- 
deren Platz. 

Nun können wir mit unseren Pro- 
grammteilen schon so allerhand, 
Was ist aber, wenn sie einen ganzen 
Satz als Eingabe erwarten? Schauen 
Sie in diesem Fall auf Routine 6. 


Das im Listing 6 dargestellte Unter- 
programm entstand aus folgender 
Überlegung: 


EEC4 
EECS 
EEC& 
EECY 
EECB 
EECD 
EECE 
EECF 
EEDO 
EEDIi 
EED2 
EED4 
EED& 
EED? 
EEDS 
EEDA 
EEDB 


EEDC 
EEDE 
EEDF 
EEE1 
EEES 
EEE4 


EEES 
EEE? 
EEE8S 
EEEA 


EEEB 
EEEC 
EEEE 
EEEF 
EEFO 


3620 
23 
10FB 
c, 


*L+ 

RR 

*%%* LISTING 

“x 

INPUT1 PUSH 
PUSH 
CALL 
cP 
IR 
POP 
LD 
RST 
POP 
INC 
DINZ 
IR 

INPUT2 POP 
POP 

INPUTS LD 
RST 
RET 

*%L+ 

“r* 


*%%* LISTING 
E22 2 


PUNKTE LD 
RST 
DINZ 
LD 
RST 
RET 

*L+ 

ar 

*%% LISTING 

22 

TEILOE LD 
INC 
DINZ 
RET 

*L+ 

RR 

%*%%% LISTING 

Rr* 

SUCTAB LD 
cP 
RET 
cP 
IR 


GET 

13 

Z, INPUTZ 
HL 
{HL),A 
16 

Bc 

HL 
INPUTI 
INPUTS 
Bc 

Bc 
A,13 
16 


SEILI, >)" 


HL 
TEILOE 


NZ,SUCTA1 


direkt ım Datenfeld gespeic 
werden. 

4. Die Zeichen sollen auf dem 
Bildschirm erscheinen 


Diese Routine erledigt das alles, 
Es handelt sich aber nicht um einen 
Bildschirmeditor. Daher soll immer 
eine Korrekturabfrage nachgescho- 
ben werden. Aber dazu später, 

Der CR soll nicht im Speicher ab- 
gelegt werden 

Der Einsprung in diese Routine ist 
aus den oben genannten Gründen 
natürlich an Bedingungen geknüpft. 
‚Aufgerufen wird sie also mit folgen- 
der Syntax: 


LD HL,Adtesse 
LD BZeichenzahl 
CALL INPUT 


Das Register HL enthält die Adres- 
se des Speicherbereiches, in dem 
der Eintrag abgespeichert werden 
soll. Das Register B enthält die maxi- 
mal erwartete Zeichenzahl. 

Es ist sinnvoll die Adresse (HL) vor 
‚Aufruf der Routine zu retten. Dann 
addieren Sie bei Ende der Routine 
diemaximale Größe des Eintragszu 
der geretteten Adresse, und schon 
zeigt HL auf den neuen Speicherbe- 
reich. 


Alle Register gezogen 


Um nun Kommentare und Fehler- 
meldungen auf den Bildschirm zu 
bringen, suchen Sie sich einen Platz 
auf den Screen aus, auf dem solche 
Ausgaben erfolgen sollen. 

Der eben erwähnte Korrekturauf- 
ruf könnte dann folgendes Format 
haben: 


DAT002 DEFW Position 


DEFB Länge, immer gleich 
DEFM "Eintrag korrekt? (/n) 
DEFB 13 

DEFB 128 

LD HL,DAT002 

CALL PRINT 

CALL 

cp 

IR Z,NICHT KORREKT 
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INC HL 
LD E,cHL) 
INC HL 
LD D,cHL) 
EX  DE,HL 
POP DE 
IP HL) 
SUCTAI INC HL 
INC HL 
INC HL 
IR  SUCTAB 


Immer wenn eine Eingabe erfolg- 
te, lassen Sie eine solche Routine 
durchlaufen und verzweigen entwe- 
der nach "NICHT KORREKT" oder 
Sie gehen zur nächsten Eingabe 
über. 

Aus diesem Grund empfahl ich 
eben, die Adresse auf dem Stack zu 
retten. Sobald die Eingabe falsch 
war, holen Sie die Adresse vom 
Stack, und starten diesen Eintrag 
neu, 

Bei korrekter Eingabe addieren 
Sie eben nur die Eintragsbreite (wie 
oben bereits aufgeführt). 

Für den Fall einer falschen Einga- 
be habe ich noch zwei kurze Routi- 
nen angefertigt. 


Markieren von Eingabefeldern 

Dieses Kurzprogramm (Listing 7) 
habeichPUNKTE genannt. DaSiein 
der Regel Eingabefelder auf dem 
Screen mit Punkten andeuten, müs- 
sen diese, vor allen Dingen bei einer 
Falscheingabe, wieder gelöscht 
werden können. 
Der Aufruf erfolgt mit: 


B.Anzahl Punkte 
PUNKTE 


LD 


CALL 


Als weitere Voraussetzung sollten 
Sie die Bildschirmposition der Punk- 
te vorher bereits gesetzt haben. 

Nachdem Sie mit CALL PUNKTE 
die Routine haben durchlaufen las- 
sen, ist Ihr Eingabefeld wieder mit 
Punkten gelöscht. 


Feldmarkierungen löschen 

Es muß bei einer Falscheingabe 
natürlich auch der Speicher wieder 
korrigiert werden. 

Das Unterprogramm TEILOE (Li- 
sting 8) ersetzt die durch B spezifi- 
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zierte Anzahl Zeichen, an der Posi- 
tion in Register HL durch Blanks. 

Da die beiden vorgenannten Rou- 
tinen so einfach sind, erfolgt keine 
weitere Erläuterung. 

Es kann natürlich auch sein, daß 
Sie dem Benutzer ein Menüeinblen- 
den, und eine Auswahl erwarten. In 
diesem Fall muß Ihr Maschinenco- 
de-Programm, genauso wie ein Ba- 
sic-Programm, nach bestimmten 
Programmteilen verzweigen. 


Vergleich der Eingabe 

Dieser Routinevergleich der Ein- 
gabe (Listing 9) hat die Aufgabe, in 
einer Sprungtabelle nach einem 
Zeichen zu suchen, welches iden- 
tisch mit einer Eingabe ist. Wenn 
dieses Zeichen gefunden wurde, 
soll eine Adresse geladen und di- 
rekt angesprungen werden. 

‚Wenn das Zeichen nicht auffind- 
bar ist, soll ein Return erfolgen, um 
eine Fehlermeldung drucken zu 
können. 

‚Aus diesen Ausführungen haben 
Sie sicherlich geschlossen, daß eini- 
ge Bedingungen mit dieser Routine 
verknüpft sind: 


LD HLTABOO 
LD CSuchzeichen 
CALL SUCTAB 


*Rücksprung nur bei — Falsch! 


TABOOL DEFM "H" 
DEFW Haupt 
DEFM "E" 
DEFW Eingab 
DEFB 128 


#1. Suchzeichen 
"Adresse dazu 
*1. Suchzeichen 
“Adresse dazu 
*Stopbyte 


‚Zuerst kommt in der Tabelle einzu 
vergleichendes Zeichen. Die dazu 
gehörige Adresse befindet sich da- 
hinter. Nach der letzten Adresse 
muß das Stopbyte (128) stehen. 

Am Anfang dieses Berichtes er- 
wähnt ich, daß ein Assembler, der 
Labels verarbeitet, fast unverzicht- 
bar ist, Sie haben Ihre Programmtei- 
le einfach mit "Haupt" oder "Ein- 
gab” benannt. Diese Labels setzen 
Sie in die Tabellen und schon geht 
alles wie von selbst. 

Die Funktionsweise der Routine ist 
recht simpel. 

Sie holt sich immer das erste Zei- 
chen (Suchzeichen oder Ende), ver- 
gleicht es mit Ihrer Eingabe oder 
Ende. Bei Ende erfolgt ein Rück- 
sprung. Bei falschem Zeichen wird 
der Zeiger HL um 3 erhöht, und die 
Routine neu gestartet. 

Bei Übereinstimmung wird die 
Adresse in DE geladen. Diese 
Adresse wird duch Registertausch 
inHL gebracht, und die Rücksprung- 
adresse vom Stapel geworfen. Als 
Abschluß wird die Routine direkt 
angesprungen. 

‚Wenn wir aus unserem Datenfeld 
Einträge wieder herausholen wol- 
len, so hilft uns die’nächste Routine, 


Ausgabe von Datenfeldern 

Der Programmteil »Ausgabe von 
Datenfeldern« (Listing 10) wird mit 
CALL PRINTS aufgerufen. 

‘Beim Einsprung muß das Register 
B die Anzahl der zu lesenden Zei- 
chen, und das Register HL die 
Adresse des Eintrags enthalten. 
Ebenfalls muß die Bildschirmposi- 
tion zu diesem Zeitpunkt bereits ge- 
setzt sein. 


LD HL,Adresse 
LD B, Anzahl Zeichen 
CALL PRINTS 


Das Doppelregister HL enthält 
beim Einsprung die Basisadresse 
der Tabelle. Das eingegebene Zei- 
chen, welches gesucht wird, soll 
sich in Register C befinden. Denken 
Sie an den Rücksprung. Verzweigen 
Sie hier wieder an Ihre Abfrage- 
stelle. 

Die Tabelle muß ebenfalls ein 
ganz gestimmtes Format haben: 


‚Am Ende vollführt die Routine den 
notwendigen CR. 

Es ist damit auch klar, warum so- 
wohl der Spectrum, als auch meine 
Routinen ein Stringarray mit Blanks 
füllen. Sollte dies nicht der Fall sein, 
so würde jedes nicht vollgeschrie- 
bene Feld beim Druck eine Fehler- 
meldung bringen. Das CHR$ (0) wä- 
Te nicht zu interpretieren. 
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Wir haben bisher die verschie- 
densten Dinge auf den Screen ge- 
bracht. Nun auch noch Zahlen. 
Formatierte Zahlen 
(Assemblerlisting 11) 

Die nachfolgende Routine lehnt 
sich an ein Vorbild im Spectrum- 
ROM an. Dort existiert eine Routine 
(#1A28), die Zeilennummern in De- 
zimal wandelt und mit führenden 
Space, oder auch nicht, aufden Bild- 
schirm bringt, 

Meine Änderung bringt nun noch 
die folgenden Erweiterungen: 


1. Wahlweiser Ausdruck von 3- oder 
östelligen Zahlen. 
2. Es werden Nullen vorgestellt. 


Damit können Sie ihre Zahlen for- 
matieren. Es handelt sich hier um 
INTeger Zahlen. Floatingpointzah- 
len folgen im Kalkulatorabschnitt. 

Der Einsprung folgt mit DE auf die 
Hexzahl zeigend. Bei 3stelligen Zah- 
len starten Sie mit CALL DEZIM2. 
Sstellige Zahlen werden mit CALL 
DEZIMA aufgerufen. 

Diese Dezimalroutine zieht bei je- 
dem Durchgang von der Zahl die je- 
weiligen Dezimalstufen ab. Wenn 
die Zahl kleiner ist wird eine "0" 
ausgegeben. Ansonsten wird die 
Zahl gedruckt. 

Ich benutze diese Routine zum 
‚Ausdruck von Dateinummern, Mit- 
gliedsnummern oder Artikelnum- 
mern. 

Beim Einsprung muß die Bild- 
schirmposition natürlich gesetzt 


sein. 

Der Teilab DEZIMI entspricht fast 
vollständig dem ROM-orbild. Er- 
weitert wurde dies allerdings um 
den Teil —10000. Der Spectrum 
braucht dies nicht, da Zeilennum- 


mern größer 9999 nicht verarbeitet 
werden. 

Mit ein bißchen Phantasie läßt 
sich dieses Unterprogramm noch 
verkürzen. Das CR muß natürlich 
auch in diesem Fall angehangen 
werden. 

Wir kommen nun zu 2 Bildschirm- 
zoutinen. Ursprünglich wollte ich 
solche nicht mit aufführen, denn in 
fast jedem Buch finden Sie diese. 
‚Aber meine sollten etwas besonde- 
Tes sein. 

PLOT und DRAW 
(Assemblerlistings 12-15) 

Diese vier Routinen sind als PLOT- 
oder DRAW-Routinen zu benutzen. 

Die Pixeladressen werden im 
Spectrum, anders als die PRINT-Po- 
sitionen, im Originalzustand in Ma- 
schinensprache benutzt. 

Das heißt, gezählt wird von oben 
(175) nach unten (0), und von links (0) 
nach rechts (255), 

Sie übergeben beim Aufruf in Re- 
gister B die Anzahl der zu PLOTten- 
den Punkte. Das Doppelregister HL 
enthält die PLOT-Position. 

Innerhalb von HL enthält L die X; 
und H die Y-Koordinate, 

Danach rufen sie die Routine auf, 
die Ihre gewünschte Richtung aus- 
führt. Diese Routine ist nur geringfü- 
gig schneller als Basic, 

Bei der nächsten Routine handelt 
essich um eine umgeschriebene. In 
dem Buch »Maschinencode-Routi- 


„nen für den ZX Spectrum« von Hard- 


mann/Hewson, fand ich eine inter- 
essante SCROLL-Routine, die ich 
hier in einer abgeänderten Form 
vorstelle. 


SCROLen 
(Assemblerlisting 16) 

Der Effekt des SCROLLens sieht 
durch ein unter-den-Kopf scrollen 
natürlich besser aus. 


8002 x#* 
8003 #%* LISTING ı 
B004 06% 

B010 LET N=TATANZ 
8020 LET M=N 


B030 LET M=INT (M/2) 
8040 IF M=0 THEN STOP 
BO50 LET I=1 

8060 LET K-N-M 

8070 LET I=J 

B080 LET L=I+M 

2090 IF as 


»100 
B110 
5120 


LET Hs=Ası1) 
LET ABCTI=AR(L) 

LET AS(LI=Hs 

B1SO LET I=I-m 

B140 IF IC1 THEN GOTO 160 
B150 60To 80 

B160 LET J=J+1 

8170 IF J>K THEN G0TO 30 
Biso 6oTo 70 


1,% TO YIc=AsiL,x TO Y) THEN GOTO 160 


ei 


DA 


‚Am Anfang wird überprüft, obder 
Drucker angeschlossen ist. Wennja, 
wird zurückgesprungen. Wenn 
nein, wird das Scrollen ausgeführt. 

Am Schluß der Routine wird auch 
die unterste Position wieder gesetzt, 
damit an dieser Stelle der nächste 
Eintrag erfolgen kann. 

Die Funktionsweise ist eigentlich 
ganzsimpel. Es wird jeweils das8Pi- 
xel tiefer liegende Byte in die ak- 
tuelle geladen. Dies ge- 
schieht 32 mal pro Zeile, 8 mal pro 
Zeichen, und 21 mal pro Zeile. Der 
Aufruf geschiehtmit CALLSCROLL, 
ansonsten sind keine Bedingungen 
daran geknüpft. 

Das Prüfen auf Druckbetrieb ha- 
be ich aus einem ganz bestimmten 
Grund mit eingebaut. Man kann 
‚Ausgaben auch in Maschinenspra- 
che so schreiben, daß sie für 
Drucker und Screen funktionieren. 
Bei Druckbetrieb funktioniert das 
Formatieren natürlich nicht. Des- 
halb wird dann zurückgesprungen. 
Das aufrufende Programm testet 
dann nochmals und verzweigt kurz- 
fristig. Im Druckbetrieb muß die An- 
zahl der Ausgaben ja noch mitge- 
zählt werden, da vor der Perforation 
ein FORM FEED erfolgen soll. 


Basic kontra Code 


So, und nun kommt ein ganz schö- 
nes Stück Arbeit: Ein Sort, aber ein 
besonderer. Eshandeltsich umeine 
vom Basic in Maschinencode umge- 
schriebene Routine, Zuerst stelle ich 
Ihnen die Basic-Ursprungsroutine 
vor, und dann schauen Sie sich die 
zwar etwas langsame, aber leicht zu 
verstehende Maschinencode-Rou- 
tine an. Selbst die Variablen habe 
ich größtenteils mit ihren Namen be- 
lassen. 

Sehen Sie diese Routine nicht als 
"NON PLUS ULTRA', lassen Sie sich 
daran die Einfachheit von Maschi- 
nencode zeigen. 

Sortieren in Basic 
(Basiclisting 1) 

Bevor Sie diese Routine ansprin- 
gen können, müssen Sie in die Varia- 
ble N die tatsächliche Anzahl der zu 
sortierenden Einträge eingeben. 
Ebenfalls sollten Sie mit X und Y die 
SLICE-Werte vergeben. 

Wenn Sie A$O nurnach A$(,10 TO 
15) sortieren wollen, so übertragen 
Sie die 10 in X, und die 15in Y. 

Dieses Unterprogramm ver- 
gleicht nun den ersten Eintrag mit 
dem ersten Eintrag über der Hälfte, 
Ist der untere Eintrag kleiner oder 
gleich, so geschieht nichts. Sollte er 
aber größer sein, sowerden die bei- 
den ausgetauscht. Beide Zeiger 
werden um eins erhöht, und dann 
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Kurs 


ErsD 
EF6E 


Er70 
E73 


Er75 
EE?& 
8877 
Erra 
Er7A 


1a 
sr 

13 

1a 

s 
1821 

1a 

sr 

13 

1a 

Er 

es 

ar 
111027 
en52 

FZAREF 

3E30 

27 

Eı 

Es 

AR 
11E803 

ED52 

F2SAER 

E30 

2 

gı 

es 

ar 
116400 
ED52 
FZSAEF 
3es0 
2 

Eı 

es 

ar 
110A00 
Ens2 
FZSAEF 
E30 
27 

Eı 
EFF 
o1Fons 
En2A19 
O118FC 
cD2A17 
OLFCFF 

ED2A1? 
3 
cD2A17 
>» 
eDerıs 
3EoD 
07 

er 


236. 
2362 
2363 
2364 
2370 
2380 
2390 
2300 
2410 
2420 
2430 
2430 
2450 
2380 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2340 
2550 
2560 
2570 
2580 
2390 
2600 
2810 
2620 
2630 
2840 
2650 
2660 
2670 
2680 
2690 
2700 
27ı0 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2sı0 
2820 
2830 


ar 
Er 
##%* LISTING 11 
er 
DEZIM2 LD A,cnE) 
iD L,A 
Inc DE 
LD A,tnEı 
ID HA 
IR  DEZIMZ 
DEZIMA LD A,tDE) 
ID L,A 
Inc DE 
iD A,tnEı 
ıD HA 
PUSH HL 
xOoR A 
LD DE, 0000 
SBC HL,DE 
3P  P,Dezimi 
ID A,ror 
RST 16 
Por HL 
PUSH HL 
xoR A 
LD DE,1000 
SBC HL,DE 
aP  P,Dezımi 
DEZIMS 
LD  DE,100 
SBc HL,DE 
3P  P,Dezimi 
iD A,ror 
DEzZIML 
ıD Bc,#nsro 
ALL #192A 
ıD  Bc,WFcıe 
ALL #192A 
LD  BC,HFFIC 
CALL #192A 
ıD c,#F6 
CALL #192A 
ıD AL 
CALL #1SEr 
iD Ads 
RST 16 
RET 
ar 
ar 
*#* LISTING 12 
. 
PLOTRE PUSH 
ıD 
ıD 
Push 
CALL 
pop 
Inc 
ıD 
ıD 
Pop 
DINZ 
RET 


Er>B 
Er7C 
Er7D 
EFZE 
EFFF 
ere2 
ErBS 
Eras 
gras 
eres 
ere7 
erar 


eraa 
EreB 
erac 
Eren 
Erse 
erst 
Er92 
E93 
Er94 
Eros 
Er96 
Er98 


ers 
era 
EF9B 
ErsC 
ErsD 
EFAO 
Eraı 

eraz 
EFAS 
eraa 
eras 
EFA7 


EFAB 
ErAC 
ErAD 
EFAE 
EFAF 
ErBı 
EFB2 
EFBS 
EFBS 
EFB? 
ErBs 
ErFBA 
EFBD 
Erco 
ercı 
EFc2 
erca 
EFC& 
Erc? 
erce 
erc9 
EFCB 
ercen 
ercr 
erdo 
ernı 
ErDZ 
erDs 


cs 
aa 

#0 

cs 
cnEs22 
cı 

05 

so 

e2 

cı 
10F2 
c, 


cs 
44 

an 

cs 
Cnes22 
cı 

on 

so 

Er 

cı 
10F2 
ca 


cs 

Er 

aD 

cs 

CDES22 

cı 

0a 

so 

6 

cı 
1orı 
cs 


FDcBo14E 
co 

2 

es 
1809 
es 
210007 
19 

EB 

&ı 
180A 
214040 
118040 
es 

25 
oEıs 
0620 
1a 

77 

79 
8607 
FEOL 
2002 
2 

12 

23 

13 
1oFı 


3052 
3053 
3054 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
s180 
3150 
3160 
3170 
s172 
3173 
zı74 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3292 
3295 
2298 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
330 
3200 
3410 
saıı 
3412 
3913 
3414 
3420 
3430 
3440 
3450 
3460 
3470 
2480 
3490 
3300 
3510 
3320 
3530 
3340 
3350 
3360 
3370 
3380 
3390 
3600 
3810 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 


E23 

%%** LISTING 

En 

PLOTRU PUSH 
un 
ıD 
PUSH 


ıD 
pop 
Danz 
ReT 

are 

#%* LISTING 

x. 

PLOTLL PUSH 
ıD 
ıD 
PUSH 
CaLL 
por 
Dec 
ıD 
un 
Por 
DINZ 
RET 

Er 

*%** LISTING 

wer 

PLOTRA PUSH 
ın 
ıD 


+ 

Kr 

*** LISTING 

En 

SCROLL BIT 
RET 
x 
PUSH 
IR 

DRITTE PUSH 
ın 
App 
ex 
Por 
IR 

SCROLI LD 
ıD 

DRITTI PUSH 


zeıe ıD 

UEBER LD 
Lo 
[e1 
AND 
er 
IR 
sup 
ıD 

WEITER Inc 
Inc 
DINZ 


gaezR 
a 


AurTzun 
o% 


oTRa 


16 


1,01Y+10 
nz 


HL 
SCROLL 
HL 
HL,1792 
HL,DE 
DE,HL 
HL 
ZEILE 
HL,16438 
DE, 16980 
HL 

DE 

c,21 
2,32 

A, (DEI 
HLI,A 
ac 

2 

ı 

NZ, WEITER 
a 

DEI,A 
BL 

DE 
UEBER 


ErDS on 3700 Dee c Focs 0608 4430 ın 3,8 

EFD6 2813 3710 IR Z,NEU Focs Ar 4440 INTDIV XOR A 

Erne 79 3720 iD ac Foc6 Ens2 4450 SBC HL,DE 

EFD? E607 3730 AND #00000131 Foce 23 4460 In HL 

EFDB FEoO 3740 ee 0 Foc9 FZCEFO 4470 3P_ P,INTDzi 

EFDD 2802 3750 IR Z,DRITTE Foce ı9 3480 ADD HL,DE 

EFDF FEO? 3760 er 7 FocD 28 4470 DEC HL 

EFEı 2081 3770 IR NZ,ZEILE FocE 29 4500 INTDIL ADD HL,HL 

ErES DS 3780 PUSH DE Focr 1ora 4510 DINZ INTDIV 

EFES 110007 3790 LD  DE,1792 Fopı cBac 4320 BIT ı,H 

EFE7 19 3800 ADD HL,DE Fon3 2801 4330 IR Z,DIVFER 

Eree oı s810 Por DE Fons 2c 4540 ine L 

EFES 1809 3820 IR ZEILE FoDs 2600 4350 DIVFER LD 4,0 

EFEB Di 3830 NEU POP DE Fons 222370 4560 LD  (VAR_MSHL 

EFEC EL 3840 POP HL FoDB EDSB2SF0 4570 240 LD DE,(VAR_M 

EFED 14 s850 ınc D Fopr 7A as80 in A,D 

EFEE 24 3860 Inc H FoEo B3 4570 or € 

EFEF 7C 3870 LD AH FoEı CAPEFO 4600 IP Z,sorti 

EFFO FE4S 3880 ce >» FOE4 110100 4610 250 LD DE,L 

ErF2 20cc 3870 IR NZ,DRITTL FOE7 ED5327F0 4620 1D  VAR_II,DE 

EFF4 012103 3700 LD  Bc,#0321 FOEB Ar 4650 260  XOR A 

EFF? cDpson P10 CALL wonne FoEc 2A23F0 4640 LD HL, CVAR_ND 

ErFA Eı 3920 Por HL FOEF EDSBZSFO 4650 LD DE, CVAR_MI 

EFFB 07 vo Exx Fors Ens2 4660 SBC HL,DE 

EFFC c9 3940 RET FoFS 222770 4670 LD  VAR_KI,HL 
3941 ar FOF& EDSB27F0 4680 270 LD DE,(WAR_D) 
3982 0% FOFC EDSIZBFO 4690 ID VAR_D,DE 
3943 #*% LISTING 17 F100 ZACFO 4700 za0A LD HL, (VARLAN) 
3948 #8 F103 ED4BZBF0 4710 LD BC, (vaR_zı 

014 3950 TATANZ Eau 20 F107 0B 4720 DEC BC 

0028 3960 von Eau 40 Fios 78 4730 LD AB 

v03c 3770 BIS Eau so F109 81 4740 ar © 

EFFD sE28 3980 SORT LD A,von FioA 2005 4750 IR NZ, z80B 

EFFF 3221F0 3990 LD  <Par_u,a Fıoc 22940 4760 1D  WAR_ADI,HL 

F002 sEsc 3000 LD A,BIs Fıor 1811 4770 IR  zeon 

F004 322270 4010 LD PAR_2I,A Fill ED4B2BFO 4780 Z60B LD BC, (VAR_DD 

F007 111400 4020 210 LD DE,TATANZ Fl1S 116400 4700 1D  DE,LAENGE 

FOOA ED9S23F0 4030 LD  (VAR_N) DE Fi1s 08 4300 nee Be 

FOOE SEOB 4090 ın As F119 0B 4810 zeoc DEC BC 

Fo1o 3220ro 4050 1D  tZaeHL),a Fula 19 se20 ADD HL,DE 

FOIS ZABSC 4060 ID HL, (WARS) FIR 78 4830 ı AB 

FO16 110800 4070 ID DE,e Fuic Bı 4840 oR © 

Foi9 19 2080 ADD HL,DE FiıD Zora 4850 IR NZ,zeoc 

Foia 227er 0 a090 LD  WAR_ANI,HL Fiir 2294F0 4860 LD  tVAR_ADI,HL 

FoID caHEFO 100 ge sort F122 SAZIFO 4870 zen LD A,(PAR_U) 

F020 00 4110 ZAEHL DEFB 0 Fi2s 30 aseo Dec a 

Fozi 00 4120 PAR_i DEFB 0 F126 1600 4870 iD mo 

Foz2 00 4130 PAR_2 DEFB 0 Fızs sF 4700 ı E,A 

F023 0000 4140 VAR_N DEFW O F129 19 #710 ADD HL,DE 

Fo25 0000 4150 VAR_M DEFW 0 Fıza zzsero 4920 LD  (VARLADI,HL 

Fo27 0000 4160 VAR_I DEFW 0 Fi2D 2A2BFO 4930 220 LD HL, (VAR_EI 

F027 0000 4170 VAR_K DEFW O Fıso EnsB2sFo 47940 LD DE, (vaR_mı 

FOZB 0000 4180 VAR_I DEFW 0 Fisa 19 4750 ADD HL,DE 

FO2n 0000 4190 VAR_L DEFW O F135 222DF0o 4960 LD  tVARLLI,HL 

Fo2F 4200 VAR_H® DEFS LAENGE Fısa zascro 4770 LD HL, CVAR_AN) 

F093 00 4210 VAR_B DEFB 0 Fi3B ED4B2DFO 4980 LD 86, (vAR_LI 

Fo94 0000 4220 VAR_AI DEFW O FISF OB 4990 DEC BC 

F096 0000 4230 VAR_AL DEFW 0 F140 78 5000 ıD AB 

Fors 0000 4240 VAR_AI DEFW O Fiat Bi 5010 or c 

ForA 0000 4250 VAR_AM DEFW © F142 2005 5020 IR N2,Ze0a 

Fosc 0000 4260 VAR_AN DEFW 0 F144 2296F0 5030 LD (VAR_ALI,HL 

FO9E SAZOFO 4270 SORTL LD A,tZAEHL) F147 1811 5040 IR Z80b 

Fon1 FEOO 4280 eo F149 ED4B2DFO 5050 2808 LD BC, (VAR_LI 

FORS ce 4290 RET zZ FisD 116400 5060 LD  DE,LAENGE 

FoAg SD 300 Dec A F1S0 0B so70 DEc BC 

FoAS s220r0 410 iD (zaeHLı,a Fısi 08 5080 zeoc DEC BC 

FOAB Sa22r0 4320 ID A,tPAR_2I Fıs2 ı9 soo ADD HL,DE 

FOAB 2121FO 4350 12 HLÄPAR_A F1ss 78 5100 in AB 

FORE 36 4340 iD B,cHl) Fısa 31 sı1o or cc 

FOAF 70 4350 sup B F155 zora Sı20 IR NZ,Z80c 

FOBO SC 4360 Inc A F157 229670 5130 ID (WAR_ALISHL 

FoBı 329370 4370 ıD  war_Bı,a Fisa SAZIFO 5140 ze0b LD A,(PAR_U 

FOB4 EDSBZSFO 4380 220 LD  DE,(VAR_NI Fisp 3D sı50 Dec A 

FOBS EDSS2SF0 4390 LD  (VAR_M,DE FiSE 1600 5160 in 2,0 

Fosc 1E00 4400 20 ıD 5,0 Fiso sr 5170 in 8A 

FOBE 1602 4910 iD 2 Fisi 19 Sıs0 ADD HL,DE 

Foco 2A2Sr0 4420 LD AL, (vaR_mı Fis2 229aFr0  Sıs0 LD  (VARLAMSHL 
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werden die beiden zweiten vergli- 
chen. 

Das Verfahren läuft durch, bis der 
untere Zeiger die Hälfte erreicht. In 
diesem Fall wird die Hälfte wieder- 
um halbiert. Wenn dabei der Wert 0 
herauskommt, ist die Routine zu 
Ende. 

Ich habe die Zeilennummern mit 
einem vorgestellten B aufgeschrie- 
‚ben, damit keiner versucht, dieses 
Listing in den Assembler einzutip- 
pen. Im Basic muß natürlich auch 
das B entfernt werden. 

‘Was macht nun unser Maschinen- 
code-Sort? 


‚Maschinencode-SORT 
(Assemblerlisting 17) 
Genau dasselbe! 

Vor Einsprung mit CALL SORT, 


vergeben Sie in TATANZ ebenfalls 
die tatsächliche Anzahl zu sortieren- 
der Einträge. Die beiden SLICER- 
‚Werte benennen Sie mit VON und 
BIS. Da ich davon ausgehe, daß Sie 
den Maschinencode-Sort im glei- 
chen Programm benutzen wie die 
DIM-Routine (Nr. 1), brauchen Sie 
die Länge eines Eintrags nicht mehr 
zu vergeben. Diesen Wert entneh- 
me ich aus dieser Routine, 

Die tatsächliche Anzahl ist hier 
wichtiger als im Basic-Sort. Denn 
über das tiefer sortieren der Blanks 
hinaus, kann unshier passieren, daß 
unser letztes File mit den Stopbytes 
(128) untergebuttert wird. In der Re- 
gel sollte das ja nicht geschehen, 
denn wer hat als Telefonnummer 
oder ähnlich einen TOKEN; aber 
man kann ja nie wissen! 


Die tiefer sortierten Blanks wür- 
den bei Mitberücksichtigung den 
Such- und Änderbetrieb unserer 
Programme ganz schön verlängern. 
‚Aus diesem Grund lassen wir das. 


Ich möchte an dieser Stelle noch- 
mals daraufhin weisen, daß es bei- 
leibe schnellere und kürzere Sorts 
auf dem Markt gibt. Als Beispiel sei 
hier das "Beta Basic" genannt. 


Bei schnelleren Programmen 
werden unter anderem die Indexre- 
gister als Zeiger benutzt. Es kann 
auch der Kalkulator benutzt wer- 
den. 

Um die Übertragung von Basic in 
Maschinencode zeigen zu können, 
habe ich die Zeilennummern von 
Z10 bis Z180 mit in den Maschinen- 
code-Sort genommen. 


Arbeit im Untergrund 

Der Kalkulator ist ein mächtiges 
Betriebssystem im Betriebssystem. 
Es gibt dem Anwender die ganze 
Gewalt des Rechnens und Kalkulie- 
rens. Darüber hinaus sind auch 
sämtliche Stringoperationen mit ihm 
ausführbar. Der Kalkulator wird mit 
dem Befehl 


RST 40 

aufgerufen. Diesem Befehl folgen 
einzelne Bytes, die jeweils eine gan- 
ze Operation einleiten. Der Kalkula- 
tor beginnt bei #335B. Die Obcodes 
der einzelnen Bytes beginnen bei 
#32D7. Ebenfalls können 5 ver- 
schiedene Konstanten (#32B5) je- 
weils mit einem Byte auf den Kalku- 
latorstack gebracht werden. 

Eine Operation wird mit den auf 
dem Kalkulator-Stack befindlichen 
‚Ausdrücken durchgeführt. Ein Aus- 
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druck besteht aus 5 Bytes. Diese lie- 
gen jeweils zwischen den Systemva- 
Tiablen STKBOT und STKEND. Die- 
se 3 Bytes können Stringparameter 
enthalten 


Byte 1: 0 für einen String von einem 
Array oder Teilstring 
1 für einen einzelnen String 
Byte 2: Lowbyte der Startadresse des 
Strings 
Byte 3:  Highbyte 
Byte 4; Lowbyte der Länge des Strings 
Byte5: Highbyte 
oder auch eine INTegerzahl: 
Byte: 0 
Byte 2: _ 0 für positiv 
255 für negativ. 
Byte 3: Lowbyte der INTegerzahl 
Byte4; Hi 
Bytes: 0 
Ebenso können Floatingpoint- 


zahlen enthalten sein: 
Byte l: Vorzeichen und Exponent 
Byte 2: Mantissenbyte 


Byte 3: Mantissenbyte 
Byte 4: Mantissenbyte 
Byte 5: Mantissenbyte 


‚Sie sagen nun sicherlich, in dieser 
Se gebe ich doch keine Zahlen 
ein! 

Das ist richtig: Wenn Sie eine 
Basic-Zeile in das Listing überge- 
ben, führt der Spectrum einen Teil- 
RUN für diese Zeile durch. Ein Er- 
gebnis kommt dabei zwar nicht zu- 
stande, aber die Syntax wird über- 
prüft. Wenn nun in der Zeile eine 
Zahl dargestellt wird, besorgt sich 
das Betriebssystem 6 Bytes Platz; 
genau hinter Ihrer Zahl, diejanurim 
ASCII-Code da steht. In das 1. Byte 
des Platzes setzt der Spectrum den 
Zahlenmerker (14) hin. Die 5 Bytes 
dahinter werden von einer Routine 
(#2C9B) umgewandelt. Entweder in 
das INTeger- oder Floatingpointior- 
mat, 


ee 07 


ScsD 
5065 
F1D3 
FiD4 
F1D? 
F1D8S 
F1DB 
FiDE 
FiEI 
FIE2 
F1E4 
F1E? 
FIES 
F1EA 


000F 
0003 
0004 
0005 
00A4 
F1EB 
FiFi 
FiIF2 
FiF8 
FiF? 
FiIFE 
F203 
F206 
F208 
FZOB 
FZ2OE 
Fz11 
F214 
F217 
FZ1A 
F21D 
F220 
F223 
F226 
F22A 
F22D 
FZZF 
F232 
F235 
F237 


25 
225D5C 
7E 
CD9B2C 
ZASSSC 
010500 


3S12E3233 
oD 
322E3334 
oD 


CD6&BOD 
SEoO2 
cDo11l6 
012118 
CDDF0D 
Z1EBF1 
11F9F1 
CDDSFi 
ZıF2ZF1 
i1FEFI 
CDDSF1 
Z1FFF1 
EDSB6SSC 
010500 
EDBO 
Z1FEF1 
010500 
EDBO 
EDS36SSC 


S631 
5632 
5633 
5634 
5635 
56840 
5650 
56680 
5670 
5680 
56570 
5700 
s710 
5720 
5730 
5740 
5750 
5760 
5770 
5772 
5773 
5774 
5780 
5770 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 


*L+ 

En 22 

xx Ki 

%%% LISTING 

er 

CHADD Eau 

STKEND E@U 

WANDEL PUSH 
LD 
LD 
CALL 
LD 
LD 
xOR 
SBC 
LD 
POP 
LDIR 
RET 

x 

x#% Bi 

ERrr 

ADD Eau 

SUB Eau 

MUL E@U 

DIV [1-15 

KONS10 ER@U 

ZAHL1i DEFM 
DEFB 

ZAHL2 DEFM 
DEFB 

FREI1 DEFS 


(CHADD) ‚HL 
A,cHL) 
#2C9B 

HL, (STKEND) 
BC,5 

A 


HL,BC 
{STKEND) „HL 
DE 


#1601 
BC,#1821 
#0DD? 
HL,ZAHLI 
DE,FREII 
WANDEL 

HL, ZAHL2 
DE,FREI2 
WANDEL 
HL,FREI1 
DE, (STKEND) 
BC,5 


HL,FREIZ 
BC,5 


(STKEND) ,DE 


Wenn jetzt ein Listing ausgegeben 
wird, bringt der Spectrum Zeichen 
für Zeichen auf den Bildschirm. 
Trifft er dabei auf die 14, so über- 
springt er diese und die nachfolgen- 
den 8 Bytes 
Genial nicht? 

Die umgewandelten Bytes benutzt 
eraberjetztnurnoch füralle Opera- 
tionen. 

Eine Routine, die unsere Zahlen 
umwandelt, folgt nun. 
Kalkulator-Routine 1 
(Assemblerlisting 18) 

Das jetzt folgende Unterpro- 
gramm wurde extra so geschrie- 
ben, daß Sie von den Spectnum- 
Variablen unabhängig sind, und 
statt dessen Ihre eigenen Zahlen be- 
nutzen können. Sie müssen nur fol- 
gendes beachten: 

. Halten Sie 2 Speicherbereiche mit 

‚jeweils 5 Bytes frei. 

2. Schreiben Sie hinter die umzuwandeln- 

den Zeilen grundsätzlich ein CR (13). 

3. Der Einsprung erfolgt mit Register DE 
auf einen freien Platz zeigend, und 

4. mit Register HL auf die umzuwandeln- 
de Zahl zeigend. 

Diese Routine übersetzt Ihre Zahl 
und legt das Ergebnis in den freien 
Bereich. Den Kalkulator-Stack setzt 
sie wieder auf normal. 

Daeine Operation nur mit 2 Einträ- 
gen abläuft, brauchen wir auch nur 
2 Zwischenspeicher. Bei unseren 
künftigen Ausrechnungen belassen 
wir das jeweilige Zwischenergebnis 
auf dem Stack, und schieben nur 
den nächsten Operator nach. 

Schauen Sie sich im Zusammen- 
hang mit der Routine Kl auch das 
Beispiel Bl an. Das Byte ADD (#OF) 
ist einer dieser Opcodes. Die bei- 
den Zahlen auf dem Stack werden 
addiert. Das Byte #38 signalisiert 
dem Kalkulator das Ende. Wenn Sie 
nun das Byte ADD durch #03 erset- 
zen werden die beiden Zahlen sub- 
trahiert. Bei #04 wird multipliziert 
und bei #08 dividiert. Lassen Sie 
das Beispiel mit #08 mal laufen und 
schiebenzwischen diesemunddem 
Endenochein #A4und #04ein. Ihr 
Ergebnis wird jetzt noch mit der 
Konstanten 10 multipliziert. 
Überzeugt? 

Der CALL #2DE3bringtübrigens 
eine Floatingpointzahl auf dem 
Stack auf den Bildschirm. 

Die Anzahl der Opcodes ist grö- 
Berals die mitdem Interface | dabei 
gekommenen Hookcodes. Aus die- 
sem Grund füge ich eine Über- 
sicht aller Codes in der Anlage bei. 
Sie können sich diese aus dem Heft 
reißen oder besser kopieren und 
beim Arbeiten mit dem Kalkulator 
neben sich legen. 


Kurs 


Bis jetzt haben wir nur mit Zahlen 


gearbeitet. Nun kommen Strings a PERS Bet me 
Kalkulator-Routine 2 F23C OF 6070 DEFB ADD 
(Assemblerlisting 19) 6191 *L+ 

Statt mit im Speicher stehenden 6192 208 
Variablen, arbeiten wir jetzt mit 
Strings. Wir stellen uns vor, irgend- EISSBAREINE 
wo in unseren Datenfeldern stehen 6194 %%%* LISTING 19 
zu vergleichende Strings. 61935 Kr 


Nachdem was wir im ersten Kal | F242 41424344 6200 STR_i DEFM "ABCDEF" 


kuator Kapiiel gehört haben, miß | Eng 42454445 6210 STR_2 DEFM "BCDEFG” 


legen. Diese Arbeitnimmtunseine | F24E CD6&BOD 6220 STRVER CALL #0DsB 
Routine bei #2AB6 ab, Sie legt die F2S1 3E02 6230 LD A,2 
Daten nach folgendem Format auf 
or F253 CDO116 6240 CALL #1601 
Bank 6 F256 012118 6250 LD Bc,#1821 
Register BC: Länge des Strings F257 CDD70D 62650 CALL #007 
Register DE: Startadresse des Strings F2SC 3E00 6270 LD A,0o 
Nachdem wir mit dieser Routine 
die Daten der beiden Strings auf | R2Pe Als2r2 6280 pe, 8161 
den Stack gelegt haben, springen | F2&1 010600 6270 LD BC,6 
wir, ohne Kalkulatoraufruf, eine sei- | F264 CDB6ZA 6300 CALL #2AB6 
ner Routinen direkt an. Diese Routi- | F2&7 3SE00 6310 1D.:" 4,0 
ne (#353B) führt alle Stringoperatio- 
nendurch. BeimEinsprungmußdas |E2#2 F146F2 Ben ODE e 
Register B den Opcode enthalten FZ6C 0106800 6330 LD BC, 
Wenn das Ergebnis wahr ist, legt | F26F CDB&2ZA 6340 CALL #2AB6 
die Routine eine 1 alsletztes Ergeb- | F292 6815 6350 LD B,#15 
nis auf den Stack. Bei unwahr wird 
eine 0 abgelegt. Mit unserer alten | 527% CDSB35 6360 GALL. #353B 
FP-Druckroutine an #2DE3 holen | F277 CDES2D 6370 CALL #2DES 
wir das Ergebnis auf den Screen. F27A c9 6380 RET 
Unser Programm führt nun folgen- 
den Vergleich durch: ee 
STR_1 < STR_2 Ergebnis = 1 6382 x%* 
Wenn Sie in STR_1 das A durch 6383 #K* K3 
ein C ersetzen würden, käme eine 0 6384 *%%* LISTING 20 
als Ergebnis. Versuchen Sie es ru- Pe 
hig. Der Aufruf erfolgt mit CALL 
STRVER. FZ27B 41243E42 6390 OPE_1 DEFM "As)Bs" 
Diese Routine ist schon mehr ein | F280 0D 6400 DEFB 13 
rel Bidschim | Fzei CD&BOD 6410 OPERAT CALL #0D6B 
eröffnungsriten mit untergebracht 
nd F284 3E02 6420 LD A2 
Haben Sie es ausprobiert? F286 CDO116 6430 CALL #1601 
Der Vergleich würde der gleiche F289 012118 6440 LD BC,#1821 
sein, aber das Ergebnis ist diesmal FZ8C CDD90D 6450 CALL #0DD? 
anders. 
Die für diese Kalkulatorroutinen | F28F 217BF2 6460 LD HL,OPE_1 
zulässigen Opcodes heißen: F292 22SDSC 6470 LD {CHADD) „HL 
Ne * I: F295 CDFB24 6480 CALL #24FB 
“ul — 
Wenn Sie mit anderen Opcodes | F298 GDES2D 6490 Unze Layer 
einspringen erzielen Sie kein »ge- | F2#B C9 6500 RET 
sundes« Ergebnis. Genauso verhält 6501 *L+ 
essich auch mit den anderen Opco- 6502 x#* 


des beim Einsprung in den Kalkula- 


= 6503 x0* Ka 


6504 %%%* LISTING 21 


Kalkulator-Routine 3 6505 X6% 
(Assemblerlisting 20) 


Das bißchen Abeit, daswireben | F27€ 41243041 6510 STRIL DEFM "As=AsıBs" 
inderRoutinenoch investierthaben, | F244 OD 6520 DEFB 13 

kann uns natürlich wieder eine |F2A5 CD6BOD 6550 KOM CALL #0DsE 
ROM-Routine abnehmen. Diese | Faas sEo2 Esan a2 


liegt an Adresse #24FB und kann 
unseren Ausdruck selbständig be- 


cDo11l6 


FZ2AD 012118 6560 
F2BO CDD90D 6570 
F2B3 2Z19CF2 6580 
FZ2Bö& 225DSC 6590 
F2B? CDIFIC souu 
F2BC E7 6610 
F2BD CDS6sic 6620 
F2co o11400 6650 
F2C3 CDSAIE 6540 
F2C6 c9 6650 
F23D 38 6100 
F23E CDES2D s11o 
F241 Cc9 6120 

6130 

6140 

6150 

6160 

6170 


EEREEER 


#1601 
LD  BC,#1821 
CALL #0DD9 

LD  HL,STRI 
LD _ tCHADD),HL 
CALL #1c1F 

RST #20 

CALL #1C56 

LD  BC,20 

CALL #1E6A 


DEFB #38 
CALL #2DES 
ERGAENZUNG ZU Bi 

6090 DEFB DIV 


6092 DEFB KONS1O 
6094 DEFB MUL 


rechnen. Beim Rücksprung liegt 
wieder eine 0 für falsch auf dem 
Stack, oder eine 1 für richtig. 

Bevor wir nun noch komplexe 
Operationen durchführen, sollten 
wiruns einmal über die Anwendung 
dieser Kalkulationsmöglichkeiten in 
unseren Programmen Gedanken 
machen. 

Wir wollen eine Datei anlegen, in 
der zum Beispiel unsere finanziellen. 
Mittel aufgeführt werden. Wirlegen 
ein DIM-Feld (Routine 1) nach fol- 
gender Muster an! 

Text: 10 Zeichen 
Betrag: 10 Zeichen = 999999.99 
+ CR 

Unser DIM macht diesen Platz 
frei, aber die Aufgabe, an den letz- 
ten Platzein CR zu setzen, bleibt uns 
überlassen. Das allein reicht aber 
nicht. Dieses Feld muß mit Nullen 
ausgefüllt werden; denn Zahlen mit 
Blank gibt es nicht. 

Wir holen mit INPUT unsere Ein- 
gabenrein, und stellen sie vorunser 
Carriage Retum. 

Sobald wir die Reihe addieren 
wollen, holen wir jede Zahl auf den 


ee: 
Byte Adresse-Auswirkung Dez. se Hex 


0 368F Sprung wenn der letzte Ein- 
trag <> Dist. In diesem 
Fall enthält das nächste By- 
te einen relativen Sprung- 
wert von 0 — 255. Die ent- 
sprechenden Bytes werden 
bei wahr übersprungen. 
Bei unwahr wird nur das 
nächste Byte geschluckt. 

ı 343C Die letzten beiden Werte 
tauschen. 

2 _33Al Derletzte Wert wird 
gelöscht. 

3  300F Subtraktionsroutine 
(uch FP). 

4 _30CA Multiplikationsroutine 
(auch FP). 

31AF Divisionsroutine (auch FP). 
Hoch 2(2). 
351B ODER. Es liegen 2 Parame- 
ter auf dem Stack. BeiX OR 
Y ergibt das X, wenn Y=0; 
sonst ist X=1. 

8 3524 Logisch UND XANDY 
ergibt X, wenn Y<>0; 
sonst ist X=0. 

9 359B ungleich. 

10 3538 kleinerals, 

ll 383B Strings sind ungleich. 

12 353B nicht größer. 

18 3538. nicht kleiner. 

14 353B Strings sind ungleich. 

Additionsroutine (auch FP). 

16 352D String AND Nummer. Af 
AND X ergibt A$, wenn 
X< >0; sonst wird A$ ein 
Nullstring. 

17 383B String < 

18 359B Sting >=. 

19 353B Strings <>. 

20 359B String >. 


23 359C Addition von Strings. 
Die neuen Parameter sind 
auf Stack. 

24 3SDE VALS 

25 34BC USRS 

26 3645 Der aktuelle Kanal wird er- 
öffnet, ein Zeichen geholt, 
ein Platz besorgt und die 
Parameter dieses Eintrags 
auf dem Stack gespeichert. 

27 346E Der letzte Eintrag wird 
negiert. 

28 3669 CODE. Stringparameter 
vorher auf Stack legen. 

29 35DE VAL 

30 3674 LEN. Stringparameter vor- 
her auf Stack. 

3ı 3785 SINus 

32 37AA COSinus 

33 3IDA TANgens 

34 3833 ASN (Arcussinus) 

35 3843 ACS (Arcuscosinus) 

3% 37E2 ATN (Arcustangens) 

EN (ogarithmus) 


40 384A SQR (Wurzel) 

4l 3492 SGN (Sign = Vorzeichen) 

42 346A ABSolut 

43 34AC PEEK. INTegerzahl ist auf 
Stack. 

44 34A5 IN. INTegerzahl ist auf 


48 3501 NOT 
49 33C0 Verdoppeln 

80 36A0 N MOD M-Division 
51 3686 Sprung 

52 33C6 Parameter auf Stack 


53 367A Nachgebauter DJNZ Befehl 

5 3506 <o 

55 349 >0 

56 3696 Ende Calculator 

57 3783 Hole Agrument 

58 3214 Ploatingpointzahl kappen 
und runden 

59 33A2 Der Calculator im 
Calculator (FP-Calc-2) 

60 2D4F INTeger in Floatingpoint- 
zahl wandeln 

61 3297 zurück auf Stack 

62 3449 Entwicklung der Polynome 

63 341B OaufStack 

64 342D Register in MEM Bereich 
speichern 

68 340F MEM zurück in Register 
Die Konstanten 

160 341B OaufStack legen. 

161 341B 1aufStacklegen 

162 341B 0.8 aufStack legen 

163 341B PI/2 auf Stack legen 

164 341B 10.aufStack legen 

Speichern von Stackinhalten in 
MEMO — MEMS 

182 342D 1. Zahl oder Parametersatz 
= 8 Bytes 

188 342D 2. dio. 

194 342D 3. dto. 

188 342D 4. dto. 

196 342D 5.dto. 

197 342D 6. dto. 

Laden von Parametern oder Zahlen aus 

MEMO — MEMS in Stack 
224 340F 1. Zahl oder Parametersatz 


225 340F 2.dto. 
226 340F 3.dto. 
227 340F 4.dto. 
228 340F 5.dto. 
229 340F 6. dto. 


Tabelle zum Abschnitt »Kalkulator« 


Kurs 


Stack und addieren. Der Reihe 
auf Stack 
addieren 


Il. Sprung nach 7. 

Zwischen jeder Operation prüfen 
wir den Anfang unseres Files (1. Zei- 
chen vom Text) auf Blank, wenn ja 
wird dieser Eintrag übersprungen. 

Geprüft muß natürlich auch das 
Ende der Datei werden. Wenn ja, 
Ende mit Ausgabe des Gesamter- 
gebnisses, 

Bei veränderlichen Zahlen, sollten 
Sie nur mit dem 5-Byte-FP-Format ar- 
beiten. 

Die letzten Feststellungen klingen 
zugegebenermaßen etwas kompli- 
ziert, werden aber an einem späte- 
zen Beispiel erläutert, 

Die letzte Routine aus dem Kalku- 


latorkasten soll uns in die Lage ver- 
setzen, ganze Operationen mit ei- 
nem Befehl ausführen zu lassen. 
Kalkulator-Routine 4 

(Assemblerlisting 21) 

Diese Routine, die Sie mit CALL 
KOM starten, führt eine Operation 
‚eines BasicTextes durch. Bevor Sie 
diese laufen lassen, sollten Sie 
schon die Variablen A$ und B$ defi- 
nieren. 

Nach den üblichen Bildschirmer- 
öffnungen wird die Systernvariable 
CHADD auf den Beginn der Opera- 
tion gesetzt. Der CALL #ICIF 
springt direkt in die Variablenbe- 
stimmung im ROM. Wir wissen zu 
diesem Zeitpunkt, daß essich umei- 
ne LET-Zeile handelt, daher sprin- 
gen wir direkt ein. 

Anschließend wird mit RST #20 
das nächste Zeichen eingeladen (in 
diesem Fall das»=«) und mit diesem 
in die Zuweisungsroutine an #1C56 
gesprungen. 

Sie sollten im Basic vor dem Start 
eine Zeile 20 kreieren, 

20 STOP 


da wir in diese Zeile mit dem Call 
#1E66A hüpfen. Der Grund hierfür 
liegt in dem veränderten CHADD- 
Zeiger. Würde die Routine mit RET 
abgeschlossen, so hätten Sie eine 
Fehlermeldung vor Augen. 

Ander Adresse #1EBA finden Sie 
übrigens die GOTO Ausführung. 

An.dieser Stelle wollen wir einmal 
mit dem Kalkulator stoppen. Sie soll- 
ten die in diesem Kapitel aufgeführ- 
ten Routinen als kleine, eigenständi- 
ge Programme sehen (mit Ausnah- 
me Routine Kl, welche Ihre Zahlen 
aufbereitet). 

Diese Beispiele können sehr auf- 
schlußreich sein, und Ihnen viele 
Anregungen geben. Experimentie- 
zen Sie mit den Kalkulator Opcodes, 
und stellen Sie die verschiedenen 
Ergebnisse gegenüber. Die Routi- 
nen K2 bis K4, und das Beispiel Bl 
brauchen nicht in das Assembler- 
File, welches in Ihrer Programme 
implementiert werden kann, aufge- 
nommen zu werden, 

Dafür gehören noch die folgen- 
den Routinen dort hinein, 


Zahlenspiele, 
Laden Fi) Speichern 


(Assemblerlisting 22) 

Erinnern Sie sich noch an die Rou- 
tine, welche die HEX-DEZ-Wand- 
lung vomahm, und das Ergebnis in 
Dezimal ausgab? 

Ein Gegenstück stellt das folgen- 
de Unterprogramm dar. Esholt eine 
3% oder Sstellige Dezimalzahl von 
der Tastatur und legt das Ergebnis 
in HEX ab. Einen großen Unter- 
schied gibt es dennoch. Beider De- 
zimalroutine sind nur 3- oder 
ästellige Zahlen erlaubt. Beider Ein- 
gaberoutine sind bis zu Sstellige 
Zahleneingaben erlaubt. 

Der Einsprung für die Sstellige 
Zahl erfolgt mit CALL MULTIP, mit 
CALLZU100 kann eine Sstellige Zahl 
übergeben werden. Das Ergebnis 
dieser Eingabe liegt bei RETurn in 
dem Speicherbereich MULT2. Be- 
vor Sie allerdings in diese Routine 
einspringen, müssen Sie, wie fast 
überall, die Bildschinmposition be- 
stimmen, denn die Ausgabe wird 
natürlich auch gesteuert. 

An dieser Stelle sei nochmals be- 
merkt, daß es sich hierbei auch 
nicht um einen Bildschirmeditor 
handelt. Die Fehlerabfrage muß 
auch hier von Ihnen übernommen 
werden. Eine fehlerhafte Eingabe 
wird halt neu gestartet. 

Nachdem Sie das Ergebnis für Ih- 
re Bearbeitung aus MULT2 entnom- 


men haben, sollten Sie diese 2 Bytes 
auf Ostellen, da sonst bei einem wei- 
teren Aufruf immer dazuaddiert 
würde. 

Die Arbeitsweise wurde hier 
ebenfalls recht simpel gehalten. 
Der jeweilige Faktor wird in den 
Zwischenspeicher MULT geladen. 
Nachdem dies erledigt ist, wird eine 
Zahl von der Tastatur geholt. BeiCR 
wird zurückgesprungen. Ansonsten 
wandeln wir mit AND 15 die ASCII- 
Zahl in die Dezimalzahl und prüfen 
auf (0. Beieiner vorgestellten 0 sprin- 
gen wir zum nächsten Faktor. 

Beieiner Zahl wird diese beim Un- 
terprogramm MULTI mit dem Faktor 
multipliziert und gespeichert. Dann 
kommt der nächste Faktor. 

Die Multiplikationroutine ist nichts 
anderes als eine Addition mit der 
Häufigkeit Ihrer eingegebenen Zif- 
fer. 

Diese Routine läßt sich auch kür- 
zer schreiben, ist dann aber nicht 
mehr so einfach zu erläutern. 

Der Faktorspeicher MULT und 
der Ziffernspeicher MULTI werden 
am Ende gelöscht. Der Ergebnis- 
speicher MULT2 muß, wie bereits 
erwähnt, von Ihnen gelöscht wer- 
den. 

LOAD und SAVE 
(Assemblerlistings 23-26) 

Mit diesen Unterprogrammen 
steht Ihnen ein Satz Lade- und Spei- 
cherroutinen zur Verfügung. Aufge- 
zufen werden diese Teilemitdemje- 
weiligen Namen: 


LOAD Lade kopflos 
SAVE Speicher kopflos 
LOAD_H Lade mit Kopf 
SAVEH Speicher mit Kopf 


Bevor Sie eine der Routinen an- 
springen, sollten Sie erst folgende 
Werte vergeben: 


PLACE: Startadresse des zu la- 
‚denden oder speichern- 
den Bereiches 

LENGTH: Anzahl der Bytes 

HEADER: Startadresse des 
17-Byte-Headers 

Der Bereich des Headers wird 
wie folgt belegt: 

u: Typ 
0 = Basic 
1 = Zahlenarray 
2 = Buchstabenarray 
3 = Code 

02-11 Name 

12/18: Länge 

14/18; Startadresse 

1eyı7: Programmlänge 


Diese Belegung muß von Ihnen 
vorgenommen werden. Bei Laden 
‚oder Speichern mit Kopf, führen die 
beiden entsprechenden Routinen 
eine »PAUSE 200« zwischen HEA- 
DER und Daten aus. 

Die ROM-Routinen benötigen ei- 
ne Spezifikation vom HEADER. 
Wenn ein HEADER bearbeitet wird, 
muß das Register A eine Oenthalten. 
Sollte es sich um einen Datensatz 
handeln, so steht im Akkumulator 
der Wert 255. 

Wir wollen nun diese Routinen in 
der Praxis erproben. Ich versuche 
Ihnen einige Hinweise dazu zu ge- 


EA6O 


0000 
oo 
0000 
211027 
22C7F2 


S2C9F2 
CDS&EF3 
2ZCAF2 
Z1E803 
22C7F2 
CDF1EE 
FEOD 
c8 
CDESFS 
2807 
32C9F2 
CDS6F3 
Z2CAF2 
216400 
22C7F2 
CD9I1EE 
FEOD 
c8 
CDSSFS 
2807 
32C9F2 
CDS6F3 
Z2ZCAFZ 
210A00 
22C7F2 
CDF1EE 
FEOD 
c8 
CD6SSFS 
1807 
32C9F2 
CDS6&F3 
22CAF2 
ED9I1EE 
FEOD 
18 


ORG 
*L+ 
xxr 
%*%%%* LISTING 
*%% 
MULT DEFW 
MULT1 DEFB 
MULT2 DEFW 
MULTIP LD 


ZU1000 LD 


zuU100o LD 


zu1o LD 


LD 
CALL 
LD 
zui CALL 
cP 
RET 


60000 


o 

o 

HL, 10000 
(MULTI HL 
GET 

13 

z 

MULTI® 
Z,zU1000 
KMULT1),A 
MULTI 
(MULTZ) „HL 
HL, 1000 
(MULTI HL 
GET 

13 

z 

MULTI@ 
2,ZzU100 
(MULT1),A 
MULTI 
(MULT2) „HL 


Z,zu10 
(MULT1),A 
MULTI 
(MULTZ) „HL 
HL,10 
(MULTI HL 
GET 

13 

zZ 

MULTI® 

zui 
(MULT1),A 
MULTI 
(MULTZ) „HL 
GET 

13 

z 


ben, ohne ein komplettes Programm 
für Sie zu erstellen. Wir lassen eini- 
ge Routinen nacheinader ablaufen, 
und Sie erhalten von mir die Ideeei- 
ner Adressenverwaltung. 
Die Praxis 

Wie Sie vielleicht bemerkt haben, 
sind die Routineneinsprünge ver- 
schieden gestaltet. Bei einigen müs- 
sen Register die'notwendigen Infor- 
mationen mitbringen, während bei 
anderen Routinen mit Variablen, de- 
finiert mit EQU, gearbeitet wird. Sie 
können dies abändern, sollten aber 
die Informationen, egal auf welche 
‚Art, auf jeden Fall übergeben. 

Speichem Sie unsere Routinen als 
ein komplettes Textfile mit dem As- 
sembler ab, Bevor Sie dies erledi- 
gen, löschen Sie aber die Zeile 1 mit 
dem ORG-Statement um dieses File 
später mit der Include-Möglichkeit 
in Ihr Programm einbauen zu kön- 


nen. 
Wir wollen folgende Eingaben vor- 
sehen: 


Name 15 Zeichen 
Strasse 15 Zeichen 
Wohnort 15 Zeichen 
Telefon. 15 Zeichen 


Zu diesem Zweck legen wir ein 
DIM-Feld A$(100,60)an. Ersetzen Sie 
im Listing 1 die 40 in Zeile 10 durch 
den Wert 101, und in Zeile 20 den 
Eintrag 100 durch 60. Mit einem 
CALL START haben wir nun unse- 
ren Speicherbereich geschaffen: 
‚A001 ORG 85000 
A002 *** RAMTOP SETZEN 
A003 BEGINN LD HL,54999 
A004 LD (23730), HL 
‚A005 *** KLEINSCHREIBUNG 
A006 LD HL,23658 
A007 RES 3,(HL) 

A008 CALL START 

Ein Anfang wäre hiermit gemacht. 
Nun meinen Sie aber nicht, daß das 
Listing so ausführlich weiterführt. 
Ich helfe Ihnen nur über die An- 
fangsschwierigkeiten. 

Als nächstes schaffen wir unseren 
deutschen Zeichensatz 
A009 CALL SETCHA 
A010 CALL FARBE 
AOll CALL #*D6B 
A012 LD A‚2 
A013 CALL #1601 
und die Bildschirmfarben. Jetzt 
fängt es an schwierig zu werden. Es 
geht an das Menü. Wir rufen es fol- 
gendermaßen auf: 

‚A014 HAUPT LD HL,DATOO1 
‚A015 CALL PINTI 

Das zugehörige Datenfeld legen 
wir in ein separates Includefile ab. 
‘Wenn wir unser Routinenfile »R« ge- 
nannt haben, so können wir dieses 
DATAfeld »B« nennen. Das Pro- 
grammfile nennen wir »A«. 


Kurs 


F3SA FS 
FSSB D7 
FSSC Fi 
F33D E6OF 
F33F ZACAFZ 
F342 SF 
F343 1600 
F345 19 
F346 3E00 
F348 32C9F2 
FS34B 110000 
F34E EDSSC7F2 
F352 22CAFZ 
F355 c9 
F356 SAC9FZ 
F357 47 
F3SA ZACAFZ 


F36D 37 

F36E SEFF 
FS70 DD213075 
F374 116400 
F377 CD5605 
F37A c9 


F37?B SEFF 
F37D DD213075 
F381 1168400 
F384 CDC204 
F387 c9 


F388 37 


7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7381 
7382 
7383 
7384 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7472 
7473 
7474 
7480 
7490 
7500 
7510 
7520 
7522 
7523 
7524 
7530 


PUSH 


RST 
POP 
AND 
LD 
LD 
LD 
ADD 
LD 


MULTI LD 


MULTS ADD 
DINZ 
RET 

MULTI@ PUSH 
RST 
POP 
AND 
cp 
RET 

*L+ 

+ 

*%%* LISTING 

Er 

HEADER EQU 

PLACE Eau 

LENGTH EQU 

LOAD SCF 
LD 
LD 
LD 
CALL 
RET 

Kr 

%%%* LISTING 

xx* 


SAVE LD 
LD 
LD 
CALL 
RET 

ar 

*#%* LISTING 

er 

LOAD_H ScF 


Ar 

16 

Ar 
%00001111 
HL, (MULT2) 
E,A 

2,0 

HL,DE 

A,0 
(MULT1),A 
DE,O 
(MULT) ‚DE 
(MULTZ) „HL 


A, (MULT1) 
B,A 

HL, (MULTZ) 
DE, (MULT) 
HL,DE 
MULTS 


AF 

16 

AF 
%00001111 
o 


23 


299780 
50000 
100 


A,255 
1X, PLACE 
DE,LENGTH 
#0556 


24 
A,255 
IX,PLACE 


DE,LENGTH 
#04C2 


25 


er 


BOOL DATOO} DEFW #1821 

B002 DEFB 16 

B003 DEFM "] = Adresse 
neu" 

B004 DEFB 13 

B008. DEFW #1721 

BOOG. DEFB 11 

B007 DEFM "2 = ändern" 

BOOB. DEFB 18 

B009 DEFW «1621 

BI DEFB 12 

Boll DEFM "3 = löschen” 

B0l2 DEFB 13 

B013 DEFW #1521 

Bold DEFB9 

BOIS DEFM "4 = Sort“ 

BOIs DEFB 18 

BOIZ DEFW #1421 

BOIg DEFB 10 

Bo19 DEFM "5 = laden" 

B020 DEFB 13 

B021 DEFW #1321 

B022 DEFB 14 

B023 DEFM "6 = speichem! 

B024 DEFB 14 

B025 DEFB 128 


Nach der oben genannten Be- 
fehlsfolge erscheint das Menü (zwar 
nicht gerade sehr einfallsreich) auf 
dem Bildschirm. Versuchen Sie 
nicht die Zeilennummer mit dem B 
einzugeben. Dies soll nur heißen, 
daß dieser Programmteil in File B 


gehört. 
Nun muß janoch die Selektion er- 

folgen. 

A016 LOOPOI CALL GET 

A0l7 LD HLTABOOL 

A018 LDGA 

A0l9 GALL SUCTAB 

A020 JRLOOPOL 


Diese Schleife wird solange 
durchlaufen bis eine gültige Einga- 
be erfolgt. Die Tabelle legen wir 
wieder in File B. 

'TABOO| DEFM "1 # 
DEFW NEU 
DEEM "2" 
DEFW AEN 

3 


Damit hätten wir schon viel er- 
reicht. Die Sprünge werden ausge- 
führt, es fehlen die zugehörigen Pro- 
grammteile, Fangen wir mit dem ein- 
fachen an. 

A021 TATANZ DEFB 0 

Diese Variable soll die Anzahl der 
Einträge zählen. Löschen Sie im 
SORTTeil die Zeile 3950. Diese Va- 
riable wird von uns jetzt übergeben. 
A022 SOR CALL SORT 
A023 JP HAUPT 

Bevor Sie diese Routine aufrufen, 
sollten Sie die beiden Slicer bestim- 


FS89 3E00 7540 LD AO 
FS8B DD211C75 7550 LD _IX,HEADER 
FS8F 111100 7560 LD DE,I? 
F392 CD5605 7570 CALL #0556 
F395 01C800 7580 LD BC,200 
F398 CD3D1F 7590 CALL PAUSE 
FS9B 37 7600 SCF 
F39C SEFF 7610 LD A,255 
F39E DD213075 7620 LD IX,PLACE 
FSAZ 116400 7630 LD  DE,LENGTH 
FSAS CD5605 7640 CALL #0556 
F3A8 C9 7650 RET 
7652 x%* 
7653 %*%%* LISTING 26 
7654 *** 
FSAF 3E00 7660 SAVE H LD A,O 
F3AB DD211C75 7670 LD IX,HEADER 
FSAF 111100 7680 LD DE,17 
FSB2 CDC204 7690 CALL #04C2 
FSBS SEFF 7700 LD A,255 
F3B? DD213075 7710 LD IX,PLACE 
FSBB 116400 7720 LD DE,LENGTH 
FSBE CDC204 7730 CALL #04C2 
FSC1 c9 7740 RET 
men. Selbstverständlich kann das NEU LD-HL(VARS) 
Programm dies auch abfragen. Ver- LD DE, 
suchen Sie eine Eingabe zu steuern. ADD HL.DE 
Nach dem Sort springt das Pro- LOOPII en) 
gramm ins Menü. N 
Als nächstes wollen wir auch Da- CP 128 
tenfelder laden und auch wieder JPZENDE 
abspeichern (kopflos). Ersetzen Sie LD DE,60 
in Zeile 7400 den Wert 30000 durch ADD HL.DE 
folgenden zu berechnenden Wert: JRLOOPU 


PRINT PEEK 23627 + 256*PEEK 23628 
Mit dieser Berechnung bestim- 
men wir das DATAfeld. Den Wert 
LENGTH in Zeile 7410 legen wir mit 
6009, 
A024 LAD CALL LOAD 
A025 JP HAUPT 
Das Speichern erfolgt nach glei- 
chem Muster: 
A026 SPE CALL SAVE 
A027 JP HAUPT 


Der Bereich des Einholens eines 
Eintrags oder das Ändern und Lö- 
schen wird natürlich nichtsoeinfach 
und kurz ausfallen. Aus diesem 
Grund werde ich mich an dieser 
Stelle auf Tips beschränken. 

Löschen Sie den Bildschirm und 
bringen Sie ınit einem PRINT-Befehl 
4 mal 15 Felder mit Punkten auf den 
Bildschirm. Setzen Sie die Bild- 
schirmposition auf den ersten Punkt 
des ersten Eintrags. Suchen Sie den 
ersten freien Platz mit einer kleinen 
Schleife. 


Die Stelle ENDE sollte einen Hin- 
weis "VOLLE DATEI" auf den Bild- 
‚schirm bringen, denScreenlöschen 
und nach HAUPT springen. 

Der wirklich interessante Vorgang 
wird der Teil LEER sein. Es wurde 
ein freier Eintrag gefunden. 

Da die Position bereits gesetzt ist, 
geben Sie nur folgende Folge ein: 
LEER LDB1S 

PUSH HL 
CALLINPUTI 
POP HL 

LD DES 
ADDHLDE 

Das Register HL enthält ja schon 
die DATAadresse. Mit Ende dieses 
Teiles sind Sie bereit um den näch- 
sten Adreßteil eintragen zu können. 
Eine falsche Eingabe sollten Sie 
durch ein kleines Unterprogramm 
abfangen. Fragen Sie zu diesem 
Zweck, ob die Eingabe korrekt ist 
‚oder nicht. Wenn nicht, löschen Sie 
diesen Eintrag mit dem Unterpro- 
gramm TEILOE und starten Sie neu. 


Auf diese Artund Weise holen Sie 
alle 4 Adreßteile in den Speicher. 
Prüfen Sie nun das erste Byte des 
Namens auf ” ". Sollte dies der Fall 
sein, so löschen Sie den kompletten 
Eintrag, er würde sowieso beim 
nächsten Neueintrag überschrie- 
ben. Nun erhöhen Sie noch unseren 
Zähler TATANZ: 

LD 


INC DE 
LD (TATANZ),DE 
Beim Löschen oder Ändern benö- 
tigen wir eine Suchroutine. Wir 
schaffen uns einen Buffer von 15 Zei- 
chen Länge 
Buffer DEFS 15 


umin ihm einen Sucheintrag abspei- 
chern zu können, Vergleichen Sie 
Byte für Byte die Namen. Wenn Sie 
gleich sind führen Sie die enispre- 
chende Routine aus. Ansonsten er- 
höhen Sie den Zeiger um 60 und ver- 
gleichen weiter. 

LD HL(VARS) 

LD DE,8 

ADD HL,DE 

EX DEHL 

LDB5 

PUSH DE 

LD HL,BUFFER 

LD A,(DE) 

CP (HL) 

JR NZUNGLEI 

INC DE 

INC HL 

DINZ LOOPIZ 

JR GLEICH 

POP DE 

LD HL,SO 

ADD HL.DE 

EX DEHL 

JR WEITER 

GLEICH POPDE 

DE zeigt nun auf das erste Byte 
des gefundenen Namens. Machen 
Sie mit diesem Eintrag was Sie wol- 
len. Zeigen Sie ihn an und lassen Sie 
ihn ändern, oder löschen Sie ihn. 
Setzen Sie aber TATANZ dann zu- 
rück. Eigentlich war das ja schon al- 
les! Der Rest sind Kleinigkeiten. 
Zum Beispiel sollten Sie vor dem 
SORT etwas abfangen. Wenn kein 
oder nur ein Eintrag existiert, soll 
der Sort nicht anlaufen. Entspre- 
chende Meldungen gehören auf 
den Bildschirm. 

‚Wenn Sie die Anzahl der belegten 
Filesaufdem Bildschirm präsent ha- 
ben möchten, so weisen Sie ihr ei- 
nen Platz zu. Folgende Befehlsfolge 
bringt die Zahl auf den Screen: 

LD DETATANZ 
CALL DEZIM2 

Sie müssen eine ganze Reihe von 
Datenfeldern schaffen, Jede Bemer- 
kung oder Aufforderung, Kommen- 
tar oder Fehlermeldung gehört auf 
den Bildschirm. (Harald Wilhelm) 


WEITER 


LOOPI2 


UNGLEICH 


te 


Spiele-Listing 


Entweichen zo gete 
Mr Die Ana dar ben 
En Di Pur 
Ein Spiel in vier Bildern mit guter 3D- ne 
Grafik und Eingriff in den Sinclair- 2, Da nn N era ren sn 
s nr Der Pt. an dem ie Pen abgeht werden a 
Zeichensatz. Schlem zuot 
Ein 3D-Programm braucht viele Grafikzeichen. Der Spec- vn ee N ri) 
trum läßtjedoch nur 21 Grafikzeichen zu. Über den Umweg der We Da PabeerFanen 
Zeichensatzänderung werden hier jedoch 42 »UDGs« defi- ee 
niert. Die Systemvariable in der Adresse 23606 und 23607 RR 
zeigtauf den Anfang des jeweiligen Zeichensatzes. Der zweite s Evantnbe Beweouna dns Soungere 
Zeichensatz in diesem Spiel beginnt bei der Adresse 64600. u Da Pat, vn dran Ss german werden so 
Der Original-Zeichensatz hat die Startadresse 15360 imROM. Mn Eine Taste it oarock warden. 
Dieses Spielistalso nicht nur als Spiel zu betrachten, sondern uw Das Split vreren oder gewonnen 
auch als Hinweis und Anleitung zum Aufbau von »SCREEN$« 2 = EEE ET | 
und zur freien Verwendung von beliebigen Zeichensätzen. BE Ve 
Dennoch lohnt sich auch das Spiel selbst, es ist jedenfalls Sec Die Punk dee werten Scnimes 
rechtmühsam, das Zielzu erreichen. Siehaben einem Gefäng- ve an eo nung 
nis, einem Irrgarten, einer Brücke und einer Treppe voller x Dar Pt do Bas 
Tücken zu entweichen. (H. Pallade) |__ 
: A Die im Listing »Entwei- 
E77 Der Spinperas, wenn lege 
a aan Ofen chen« benutzten Varia- 
1090-1080 _ Beweguncer geben Schar re ae blen auf einen Blick 
1070.1088 Absuchener hatt 1200:3220 Ermelunaces Sarons 
1oße Die Porson packt einen neuen Stein, schaut, Bee a Dee aun 
2. en a ie En Vena Keiner tal Na damit do Ferzen 
1090-1092 Die Person ist auf dem Hinweg. sninichen 
a ara 4370.4400 _ Der Feder woman. Fon woran 
nee 6000:7000 Die Poen stentmehen 
1800.1610. Ende demamten Schrmen soro Farna dr unern zu (NPUFIZeien mi er 
Riese 23024 
2000-3000 Schrmzwe 7000-1000 EndadenSple 
220 0 Ok Morde una POkE 20074. a an 
Fetten er zt 70s0 Ende cesopeien Zurich Aöhäschenssumm | € DIESE Tabelle gibt den 
2280-2200 Aömichendar mans (den harnsen 23006 uns 23607 Programmaufbau wieder 
a eine 9000-0999 _ Strsostin des Programm 
2500 Absender Karidre 0000 Posen Ram Maschnenarach und tr 
2u20 Anderung der Farbe dar ron. vorn aioPunkta Casual Aeradet 
aufgeoassenundundde fesönwaterdsinen- 8005 Dekra er Vrblen. 
Pr 9011-0090. Neselupder Zächnung 
2025 DR Punkt weht it m Bonus 2020 Fiebuna da unrtn zi (NPUTZeln it er 
2a Drckausgse Berne 20024 
3000-000 Schema 2058 Ändenagderneuenzacnenim na 
3100.2020 _Hertluma es Schimes S088 Hering dur Gnikaeihe 
220 Bewegung des Dans 3070 Die verschiedenen Kange warden »gpPOKES« 
Fr Der waßeLschtz 9002-9900. Enärungdes Spule 
3006 > Odin Fersen Sichragt een zen 0 | V- Basiolisting 
3365-3460 _Bewegungder Person. wenn sie keinen Steinträgt 9800 Eine Routine, de ce Geschwindigkeit der Ausgabe »Entweichen« mit UDGs 
3%00.3500__Bewegungder Foren. nemas onen Snningt ont (unterstrichen) 
Q>REM EERRERREELRERTRAN TERN 
“ © 1984 H. PALLADA Ei 
#FUER HAPPY COMPUTER $ 
* 
KERNREREERHER TER 
1 60 TO 
1288 REM 1. SCHIRM 
1801 IF LI<1 THEN GO_TO_7008 
1905 INK 8; OVER ®: FLASH 2: PAP 
ER 4: BRIGHT @: CLS_: BORDER &: 
BRIGHT _1: PRi INK ®: LET SC 
C=d: LET NN=! Uu=1 
SET3 ERnetER 19 BekbrtaB; 208 
BRINT ATVoR; FARBF ET NEXT X: NEXT 
1012 FOR Y=1 TO 3 STEP 2: FOR_X= 
5_TO_25 STEP_2: BEEP .0087,%: PRI 
NE RT KAR BR" NEXT X NEXT_Y 
1013_FOR Y= 1 _STEP 2: FOR 
X=2_TO_31ı STE BEEP_.087,21-X 
: PRINT AT Y, "NEXT X: NEX 
Typische Spielszene TY 
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1014 FOR v=18_T9 28 _STEP 2; FOR 
X=8_T0 31 x: 
RINT AT _Y,X x 
x: PRINT AN T 3 
8; INK 5;"e@ 
10168 BRICHT _®: PAPER 6: FOR X=Q 
To S1STEP a: PRINT AT 14,X; "Ch" 
1819 FOR X=122 TO 83 STEP -1S: 
LOT 6,%: DRAU 33,48: PLOT _7,X 
Rau -2,-43; PLOT Ban, X; DRAN 
er PLOT 249,X: DRAW 6,-48: 
1020 INPUT #8; PRINT #0; "SCH 
1 Score: ;sC;" LEBEN Lst T 
1821 BR SBINT_ INK 
9,542 af darı 
: 

INK 8: : DRA! 
1022 FO 8: BEEP 
=X: _PRI nEgRER 5" 

1;AT 10 EXT 
1885 LET 
1826 PRI PAPER 4; BRIGH 
T 8;AT 7? 
1938 FOR IF ATTR (11 
x) =33 OR A 19,30-X)=38 THEN 6 
0_TO 1580 
1831 PRINT ao 5; ug 4;AT 11 
Kur; AT_9,390-Xx; "uw": suB 1876 
N oRıht PABER Apr il; "Ar 9 
3@-X;" ": NEXT X 
1832 For X=2 STEP_-1: IF A 
TR 21,033 19,38-X) =3 
3_THEN 
1033 Pı Ink. 5: RAPER 4,AT, 41 
KiWTERT BDO; Au" 5 1076 
PRINT RABER, BT in; rät s 
Er ER: 
1888 &o_To 1048 
1970 PAPER 4: BRIGHT 9: IF INKEY 
47,8, THEN PRINT AT XX,10; " "A 

XX+1,10;" _": LET XXaXX+180X%< 
18): IF xXa18 AND Uus1 TEN RAND 
OMIZE USR WU=ß 
1975 IF IN EXgalzt ATHEN, „PRINT, AT 
xX,10;" NER B 
iX): Ir is THEN ce 
1080 IF INKEY$=" " THEN IF_XX=8 
OR XX=11 THEN RANDOMIZE USR 5412 
0: PRINT AT 8+3%# (XX=11) ‚10; 
AT_9+3%# (XX=11) ‚10; xx=k 
xX+3-6# (XXz11): ’RANDOMIZE USR 641 
44: 60 TO 1882 
1885 PRINT INK 1; PAPER 5; BRIGH 
Fekaltn 18,3; NERFRRFFFFeRRRFFFer 
1086 IF XX=8 THEN LET WU=1: PRIN 
T_ PAPER 4; INK 1; BRIGHT 8; AT_S, 
18; "Hy";At 8,10; "26": PRINT AT 4 
uNN;” ": 20 To 40 STEP S 
BEER ‚B@as xT RETURN 
1887 IF ATTR_(XX,10) =105 OR ATTR 
(XX+1, 18) =105 THEN LET WU=1: Gi 
T9_1568 
1088 IF WU=® THEN 60_TO 1093 
1898 PRINT PAPER 4; INK 1; BRIGH 
T O;AT XX,18; "BE";AT XX+1,10; "E8 
@92 RETURN 


R 
O;AT XX,18; "E "; xX+1,10; "8 


1895 IF XX=6 THEN LET N aNE 103 
ET Be ERBuLn a PRINT #0; 
"SCHIRM: 1 SCOR LEBEN: ";L 
7 en eig IP Ah »22e” THEN so To 


2 
ae PRINT PAPE! N 1; BRIGH 


® RETUR! 
© RANDONIZE USR 64048: LET LI 


SLI-4: ZNPUT #0; PRINT #0; "SCHIR 
M:1 SCORE: ";SC;" LEBEN: ";L$t 

Li): 00 To 1896 

1528 60_TO 1025 

1890 FOR X=0 TO 30: NEXT X: CLS 
;_FOR X=® TO 30: PRINT INK ®;_PA 
PER_2;AT RND+2®,RND+3®; "BA": BEE 
P_.88,%: NEXT_X 

ı8i® FOR X=® TO 188: NEXT X:: RE 
M ENDE 1. SCHIRM 

2982 REM 2. SCHIRM 

2a0S IF LES THEN Go TO 7208 
@a18 BRIGHT ©: BÜRDER 3: PAPER 3 
AgEe BEEP „01,10: 


InENK 6, 
„PHBER = 
todo Bcep’ 2. 12: 


Nor Bu 


are 
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„PAPER 9: „BREAT 


PRINT INK_7 
3 INK 8 
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Drachental 


Werden Sie zum mitellterichen 
Helden. Große Taten sind zu voll- 
Se di 


Ein Abontenerspiel mit aufwendiger 
MA, de ch er 


Finden don ig es Schengen- 


© Iod- und speicherbarer 
ielstand 


Spiestn 
© integrierte Spielanleitung 


Flucht ins Paradies 


Abentover im Jahre 2293. Sie siten 


besondere Gags 
© integrierte Spilanleitung 


Operation Neptun 


solid 
Ihres U-Boots: »Defakter 
neue 
Untieen des Meoras.« Ihnen bleibt 
nicht viel Zeit, die Erde vor der 
valaakte Vermeung m 


Ficht ins Paradies bietet Ihnen: 
® Hes-Huhtolor-Graik, 
© 50 Büder 
® sche großer Wortschatz 
© Iod- und speicherbarer 
Spiestand 
© integriert Spielanleitung 


Or Neptun bietet Ihnen: 
Hires-Bilder 
© 1od- und speicherbarer 
nd 
Heip-Fonktion 
og pnltung 
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3 a u INK 
I 
Der ’d; zuK S;" 


01,22: PRINT INK 5; 
INK 75 %.°; 5; M 


NK 5; er = ; un 
N #7 ige; 
; INK, 6; IPÄRER"s; "al 
1; INK 9,","; 
EN 


a TUR Kan S 


ss ’pApkr 3, 
PAPER 5; 4 
Bus BEER ara: 


PRINT INK 5; 
RS INK 


3210 POKE 
®: LET BON 

FB=7: LET XX=2: LET YY=@: LET X= 
2: LET Yo: FOR S=@ TO 10: NEXT 
2228 c9 To asoe 

2338 LET ASTINKEYE 

3235 IF 5" THEN LET YaYY-1+t 
YY?2 öR ROY SU SATT, 
R_IXX,YY 3Y THEN_P 
RINT PA) IF _ATT 
R_ IX “ SLI-1: 
RANDOM 3088 
3248 IF ort 
YY>3 331) +AT 
IR 5) (Y THEN 
BRINT, Jar, ";_IFAT 
TR t Ker, Ürsti-1 
5 RANDOMLZE USR Baads: So To 308 
SE59 IE Agars" THEN LET Xaxxtımt 
KX>18 OR ATTR, IKKHLYG) OS KERT 
TR_(XX+1,YY) =68): IF X<>%X THEN 
PRINT PARER, Sat NR 
TR_IXX 8 THEN_LET LI=SLI-1 
FA) RANDaMIzE USK Suaası So To Sad 
22698 IF A$="7" THEN LET X=XX-1+1 
KR22 OR AFTR (xkeanvYI osSlı cart 
RB KweR VW) E68%: IF RES THEN P 
RINT PAPER 3;AT_XxX,v;" ": IF ATT 
R_IXX Yı=68 T LET LISLI-1: 
RANDOMIZE USR 84048: GO TO 2088 
22728 X=X: Yy=Y; IF_YY=3 
Ö AND FB=Q THEN RANDOMIZE USR_54 
978: RENDONIZE USR 64073; PAUS 


199 
2280 IF YY=31 THEN LET YY=30: LE 


T_Y=38 
2308 IF Seen .: Y)= 
E 1 „80=5 


Ur no: 

: "INT (Si 

O_Lı): BON 

3) x(PEEK 236 

Z;AT 21, BONU: 

"AT 21, ONUS 
@ IF_5CC=228 EN IF_RND>.65 
THEN LET A=1+INT (RND#18): LET B 
=1+(RND#29): IF ATTR (A,B)=51 AN 
D_A<>2 AND Ac>lı AND Bi&6_THEN,P 
RaNT „ a AAPER a; BRISHT A; 
2328’ IF SCC=228 THEN IF_XX=2 AND 

YY=® AND FB<>8 THEN_ Li 
E25 en BEEP .9807,30: BEEP - 
338" Tr ScC=228 THEN_IF BONUS<)® 
THEN LET SC=SC+BONUS: RANDOMIZE 
USR 64128: INPUT #0: PRINT #0; 5 
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EN_NEXT X 
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H 
4122224 
en 


2moH 


us TO_g@ STEB 4: BEEP 


"OT HDAD nom ;m 


mi 
Xu 


AT _NM-1,38 
; Alam" ir’ PabeN 47 ıuK 2 5 


MseR 

4368 IF ENDIe Sr H2aS OR Mi4 T 
HEN_NEXT. 

Dt a NAANDöHTZE USR "Sr; ; „SORDE 
R 4: FOR Y= IF = 


B 1 TO 16: ENE=". 
THEN BORDER 1: Yir TAN: oT 


NEXT 
STEP -1: PRIN 
1; "3 ZUK GR 
PRINT PAPER 
7;AT Y,M;"n 


Feet RANDOMIZE USR 64216; BRINT, 
FREE, „es INK 6AT M,M;"d"; A 


ddber EoR Kallz 3 TO 8 STEP -1: DE 
BAR! +2- a a 
INK gar 


ie u 


PER 1; Ar’ 


3 


8; "p 
sat Yı28; 
& RDER 
"®IHR AUTFR 
a8 E :" "SIE SIND ENTWE 
6610 FOR S=-15_TO 40 STEP S: BEE 
B_ANDERND,S; „NEXT S 
Sags BRINt "IHRE PUNKTEZAHL IST 
ar 
6935 IF HSC>® THEN PRINT //"DER, 
SESTE SPIELER VON HEUTE" I" IST 
; FLASH 1; 
5048 IF HA 
Ferd se. 
ash ERkNT NSMRE FLUCHT_HAT IHN 
EN_";3-[1;" LEBEN GEKOSTET." *" 
STE HABEN" ALSO NOCH ";LI;" LEBEN 
5969 BAZNT "MIT DIESEM "jLI;" L 
EBEN KNNNE NOEN erhE ento 
EIC vE 5 
6078 PRINT_#0;"DR 
SEK "" EIN_FOR EINE 
NE! E.0: RA 


ING": PAUS! 
SOHZZE_USR ss1e0: do To 1008 
90a Ren ENDE DES SPIELES 
Basic-isting »Entweichen« (Fortsetzung) 


Sonderheft Spectrum 


Spiele-Listing 


INK 5: PAPER 1: BRIGHT ®: B 
1: CLS : FRINT "ES TUT MIR 
a aBEN DREI LEBEN VERS 
BANDOMIZE USR 64848: RANDOM 
USR_ 54048 

PRINT _’"SIE HATTEN NUR DREI 
EN, DAS SPIEL IST ALSO ZUM 


INT _/"SIE HABEN EINEN uns 
ü Ran ReichTuon. ;5C;" PONKT 


025 _POKE BE ER IF SCHHSC THE 
LET _HSC=S: PRINT ’"MIT DIESEM 
""SCORE"" Sind SIE DER, BESBEN 5 
IELER VON HEUTE _! En 


E IHREN _NAM!I NEOT 
BRiNnT ES THEÜT 
"; FLASH 1; 


Smaa Sr Hma 
490 


3 


HSC» u zeren. 


HSC;" PONK 


PRINT **"DROCKEN SIE 
Ti J EaN WENN SE NOCH 
EIN SPIEL MACHTE PIELEN.' 
INP! TPORE,, 23658, ars. 
ker LET Lis3: 60 


SHANHMSHD ZUMONM NHND ON 


0Smez om 


TOO POKE 23607 ,88: BIKE Ba696,0 
REM ZURUECK NACH NORMALEN BUCH 

SräsEn 

7059 stop 


NEX FOR 10,8 S 
PLOT 125,80: NARı x, a8: 
Sais For x=8 TO Er PLOT 125, = 
ı DRAW _-X,95: NE: X: FOR X=98 
08 ST ER .t: Katar 125,88: DRAU - 
9928 FOR _X=0 TO 80: BLoT 
DRAU -185,-X: Ni 

TO 8_STEP gr: 


x 
TO_125; PLOT 125,80 
ı DRAW_X, EXT FOR X=86 
02 STEP 20: PLOT 185,58. DAau 
as EXT X 

9830 ÖVER 9: POKE 23624,225: PRI 


NR: B2> SRELenn: SIE, „BITTE WEIL DAT 
FOR N=15616 To ER POKE 
(PEEK_N) N N 
Höre Scad: FÜR“ Netgaates 
Oo en 43+ (12338): READ 


A: E N 
TORE 3500: FOR N=USR_"A" 
RERD A: POKE N,R: N 


Y=® TO_14: RESTORE_ (975 
: FOR N=(64000+24xY) TO (5 
43Y): RERD A: POKE N,R: NE 


Ban 9799: FOR N=(640889+ 
Do (sggasraev): REARD A: P 


8 NEXT. 
5 POKE 23624,95: INPUT #8: PR 
2 


#0;"DrQ@cken Sie_< ENTER > ei 
Or, eine Forsetzung des Prog 
@'RANDOMIZE USR 64096: IF INK 
="" THEN Be USR 


NK! EN RA! 
84192: IF INKEY$="" THEN 

IZE USR 549824: IF INKEY$="" THEN 
60 _ TO_9038 


r 
98995 POKE 23624 ,56 
93188 INK 1: PAPER 5: BRIGHT 8: B 


Ss 


na 


selbe Pkint: Sr : 
sind falsch verhaftet, 
eos en Sie entweichen. 


UB 
las RENT. PRINT : LET a$="Um 
entweichen zu kNnnen sollen Sie 
versuchen vier DES chIndens use 


uftrMge"" auszuföhren.": G u 
2808 Pe 
8138 PRINT ; PRINT : LET a$="Die 
se vier AuftrMge sind geteiltübe 
rc vier Schirme.": GO SUB 9890; P 
RINT : LET a$="Sie mOssen also d 
urch vier ver- schiedene Schirme 
gehen, damit Sie en n kA 
nnen.": GO SUB 98% 
9135 PRINT : ZI 
bekommen nur dr 
en Sie Vorsic ! 
890: GO SUB 9810 
9148 PAPER 4: Bü 
Fi AT 8,18; In] 
RINT INK 6; 
T im 
n sol 
® es 
Fl er 
I Abe 
ein 
0 sol 
5 ET 
c ert 
ei 
8 Neb 
abe Sch 
einwefer. le Leu 
cht dieser 5 ste 
hen, verlier Leb 
en,": GO _SUB o 
8168 PAPER S: > IN 
K 1: PRINT AT EI“ 
i PRINT AT 1, = 
9165 LET a$=" mıI 
rrgarten an- sen 
Irrgarten sie 
sollen alle Je 
schneller 8 
aerieer der 950 
917® PRINT : wen 
n alle POnkte sin 
d sollen Sie gan 
93 des SUR ers 
t dann sobald. Aus 
aan9; Damit Si gar 
en entweichen UB 
9898 
9175 PRINT : PRII Ach 
tung ! Wenn all ver 
schwunden sind, Kor 
ridoren abgasch nos 
sen sich beeile son 
st ist er SEssh 95 
00: GO SUB 981 
9188 PAPER 2: B 
Z@HT 1: INK 7: 
HIRM DREI";AT 1 
8185 PRINT PR 
diesem Schirm 
cke, die Sie au 
60 _ SUB 9808 
9187 PRINT LET a$="WNhrend_ des 


Aufbaues kAnnen Sie erspritzt u 
Basic-Listing »Entweichen« (Fortsetzung) 


Sonderheft Spectrum 


3} REM N N 
ERBEEE LET asstuen 9532 DATA 68,0,68,58,58,68,58,0: 
i 5 
nen EOESIETEERS | 956 BETFOSHERAEEATESBLSB-Z804 
5 - 
Veeringe we sten BEUSSBRIR! a 
i : 
Ent rachti verlieren 9807 DATA 7,15,31,63,127,255,255 
FEN en 4808 'DATR 224 ‚240,248 ,252,254,25 
902: GO_ SUB 699 BE. Ben & ’ 
ORDER 8.6 237 3611 SATA 1,8,7.15,31,68,127,255 
HIRM VIER"; :_REM : Fe 
5318 PRINT auf 9633,DITa 128,192,224,240,248, 
pres denn“ sin | 615 BATA 0,8,0,0,60,127,255,255 
BETT De i a | $512,0R78 253,254 ,252.248,240,22 
» on ® 
Beet Satlen gen 9819 DATA 255,187 ,68,81,15,7,3,1 
i ese [43 Ri 
8 geträtte verlieren 5 9621 DATA 56,86,16,124,128,186,4 
i i i H 
"Vechdten., die Hähe zu 2683 DRIN ass 256,253,249,241,28 
abo PaınT LET as 3635 °BA A 58,60,56,25,18,58,124, 
den von er einen 568) DaTa'ı2a 124,184,108,204,20 
en ı 5 
@ dann) 4,204 ,258: REM 
"innen dr En au 2633 BATa 192,240,56,91,91,58,24 
800; "Sness er 9631 DATA 24,24,24,60,126,162,10 
3825 SRH 2; BORDER S,195: a” Be 
: OL8_: INK 7: ATo 2633 DATA 29.124 ,28,24,136. 188, 
EROBERN DER TASTEN" SAT 1, 5585 Badn 89,124, 108, 180,108, 108 
hinunter: ’ H 3 
ER TRsNIo 7";TAB 10 85527 DATA 3,9,8.8,8,3.1.1: REM a 
2" i H r Er FF +. h ‚s6 
basß SRENT "schen a: hinunter: 9581 Data 244,240,16,48,46 48,5: 
Bach linkdın Ge anni 4643 DATA 285,129,128,129,129,12 
nach Te 5”";TAB 108; "nach rec Saal ane. EBEN . ee 
9848 PRINT "SCHIRM 3: hinunter: , 3625 DATE 129,129,129,129,129, 
ac np. Hecaufs ehe 93647 DATA 36,34,34,68,68,34,34,1 
RE: 817788 18; 15 bad DATA 60,105 ,255, 255,255 ,255 
9245 ERINT, "SCHIR 4487 Beta S55"S6,56,56,56,124,25 
secängen:” Baeaah S653"dRTh 18,16,16,16,145,84,56, 
ngeken Sie, <ENTER) Gs S65S"DRTa 285,129,129,129, 128,12 
RANDaMTZE 9,129 ,255: z 
6412 23696 2 
Er a | es 
En DATA 255,0,8,0,0,0,0,0: REM | 39,, Darm 1,208,10,33,5,0,17,10, 
DES RERBESS E10 1es1en1 9720207 8756 DATA 1,100,95,33,108,8,17,5 
3S0s A ee 8498 DATA 1,40,38,93,25,1,17,50, 
M F ° 
DATA 8,8,80,31,31,31,931,31: 33 ,37,3,17,5,8 
BE. 3388 BETE 177909979492, °, 174549, 
513 DATA 31,31,31,91,0,8,0,0: R | 2752 DHrn 119:88:9:3&:9:17:2:8 
SSıs Data @,14,30,126,4,30,931,63 BIERIBENE 1:3.999:93:18,0,17,5,0 
ae ?,27,27,2 | 2378 Data 1,8,111,98,8,4,17,4,6 
SS TOR HER Bands 22,277, 8772 Data 1,268,160,89,86,1,19, 
5 »3,3,3,3,4,8,8: REM H FUER MUSIC 
235 BaTn 2,8:7,368,868,Bsarasaı 9798 REM PRSSRaH ee. 
s522 DATA 9,192, 192,204 ,248, 124, 1937208, 28,125, 148,111.16,844.8 
fi 4: 
sssd"onta 323, 155,27,27,27,27,68 en LEN As: PRINT As 
855: REM s IN) ;: R f Fr 
8535 DATA 1,2,7,91,31,63,69,187: ag16/pOßE 20626 ZT eRayr ımo;D 
REM DATA _FUER BUCHSTABEN = des Programas.”; SE 
3338 Darm Enno ugeunea.a: OESETZUNd des LLONLHABE TI EHUR 
Sara 68,0,56,68,68,68,56,0: Basic-Listing »Entweichen« (Schluß) 


Selerkeihirsesmm, 


Spiele-Listing 


Defender 


Da fliegt man nun friedlich gesinnt 
durchs Weltall und wird doch tatsäch- 
lich angegriffen. Pazifisten können 


ausweichen, Sie dürfen sich wehren. 


Wenn Sie mein Programm geladen haben, erscheinen auf 
‚dem Bildschirm am oberen Rand 12 feindliche Aliens die sich 
von rechts nach links bewegen. Plötzlich bricht ein feindliches 
Raumschiff aus und versucht Sie mit Bomben zu treffen. In die- 
ser Spielsituation haben Sie nur die Möglichkeit ihre Raumba- 
‚sis mit den Tasten 5 nach links und der Taste 8 nach rechts zu 
lenken. 

‚Sie können ihm also nur ausweichen, ihn aber nicht vernich- 
ten. Erst wenn der Angreifer verschwunden ist können Sie mit 
Hilfe der Taste 7 auf die Invasoren schießen (immer nur ein 
Schuß). Da die Angreifer immer näher auf Sie zukommen, wird 
das Spiel mit der Zeit immer schwieriger. Schaffen Sie es alle 
‚Aliens mitihren 3 Raumbasen abzuschießen erscheinen neue 
Invasoren, die aber jetzt schon sehr viel tiefer fliegen. 


High-Score Punktzahl 

Punktzahl im Spiel 

‚Anzahl der vorhandenen Raumbasen 
‚Variable für die Anfangshöhe in der die Aliens 
fliegen. 

Variable der Höhe der oberen Reihe der Inva- 
soren 

Variable der Höhe der unteren Reihe der Inva- 
soren 

Koordinaten der Raumbasis 

Koordinaten der Rakete der Raumbasis 
'y-Koordinate der einzelnen Angreifer 


Variable der einzelnen feindlichen Raumschiffe 
Koordinaten des angreifenden Aliens 


'Variabledefinition für das Programm Defender 


10— 41 USER-Grafik wird festgelegt 
45— 70 Variabledefinition 
140 Tastaturabfrage der Tasten 5 und 8 


(links — rechts) 


160— 290 Darstellung der Raumbasis und der 12 
Invasoren auf dem Bildschirm. 

195 Tastaturabfrage der Taste 7 
(Feuertaste) 

300— 360 Bewegung des angreifenden Aliens, 
der aus der Staffel feindlicher Raum- 
schiffe ausbricht 

510— 570 Bombenabwurf auf die Raumbasis und 
nochmalige Tastaturabfrage der 
Tasten 5 und 8 

1500 — 1510 Abzug einer Raumbasis 

2000 — 2050 Spielende mit Anzeige des High-Score 
und der Frage nach einem weiterem 
Spiel. 

5000— 5180 Bewegung der abgefeuerten Rakete 


der Raumbasis. Mit Überprüfung, ob 
ein Treffer erzielt wurde. 


Die einzelnen Programmabschnittes des Spiels Defender 


Sonderheft Spectrum 


Tastenfunktionen beim Spiel Defender 
"5" nach links 
"8" nach rechts 
"7" Feuer 

Das Programm »Defender« kann mit »SAVE"DEFENDER” 
LINE 1« aufgenommen und von Kassette mit LOAD geladen 
werden. 

(A. Henrich) 


IVE=2 SÜORE=SO H.SCORE=5D 


ep, Sup u up Sr 
An N EN 


LIVE=1 SCORE=188 H.SCORE=58 


x u x 


[7-7 


H.SCORE=258 


>> 


Typische Spielszenen 


5 REM XEL HENRICH 
eidhoernweg 21 


2862 Spetzerfehn 
Tel, 84943 


26,31 
6,19: 


18,1% 
A’185 
4,225, 131,198,248,246,192,32,24 

& i 39,136, 1 


35 63 61] 
‚224,128, 192,248,352,198,35,49,2 
4,24,24.,24,24,24,24,24 


Basic-Listing »Defender« 


a 42 


Spiele-Listing 


DATA 132,44,151,92,59,228,4 


LET hi=® 
BORDER 1: PAPER 1: INK 7: C 
LET q=1: LET a3: 


LET Wel: LET xe2l: 
u 


LOR 
AH FR 5; uive; A 
Yazıe AND y<@ 


+44 D4O 2 


sennespenine ine 


2 9 To 100 

308 LET FEN 

329 PRINT INK UST BRtldr 1;ar 5, 
De iind, 
189 PRINT ar 5 


Sa LET sas+l 
o2® IF o>u AND s<«18 THEN LET 9= 


LET sum=5um+SQ®: : 
346 Ir (ou88 THEN LET Liverlive 
+1: LET 10=26: LET ces: LET_f=7: 
LET sun=sun+590: : 

Tr .g=y THEN BRINT INK 2,58 
If gern: SHHER RetüRn- 


[e] 
a 
io 


I 


raaunaanı 
AGRPE NIT, 
SSEuWsT- 


535 LET YayaLINKOYEST = AND yı@ 


8 PRINT INK ER Br ‚V;"ARS 
Fern x RR RS 
ARINT Anand; 


NEXT 

PRINT, ATS," " 

RETUR! 

PRINT AT 19,2;"Die Invasion 
gelunge 
LET g=live-1: BEEP 17108 


IF lLive<=® THEN GO TO 2880 
so TO 
IF sum>hi THEN LET hiz=sum 


PRINT AT_x.9; 
PRINT PAPER 4; RT 0,5; iveia 
(yzn)?";z$ 
[ 


o TO S® 


3 


HSITBHR 
Tu 


= 
9=: 

NS INK 6;AT 0,9 
6-1=4_AND_(ysu OR yau+l) 


# 
1 

x „ ei N_PRII AT 
ee, a Er = ? 
{r] LET 
ı 


mon 


mn mon 
84 


EEEN) 
=q AND. (yzu+4 OR yzu+ 
Eane Man N en AT 


za 


Era Achz 


Beza_e 
rn 


+ Bm 


Se o RET 

Ir LaR "an iyasits OR _yzu 
THEN IF_d$= THEN PRINT 
PLE rt Fe BEEP 1/18, -10: 
= Let sunes un 4188 Let 
R ps= URN 
I 

4 

Al 

ö= 

I 

Ti 

Al 

g= 


EI 

„w;" 

o+1l: 

5168 x Dt W+4 OR ur 
= = 

Ei} "ar PRINT Ar 

C,u+4; ı LET 

yoslasi „LET he= 

sı119 IF 

9 THEN 

r,0+3; 

l\ozlo+l: 

Bi 

sı2ao IF 

+13) TH 

AT r,0+ 

Er Lö=L 

8150 ıF “ARD tyiw+1s OR 

+17) THI Re " THEN BEINT. 

AT r w+1B; "Er" p_1/18 

ET Lo=L Let Sun sun+s6: 

Sen Er [7 No Bann 

Si4o IF r (yzu+z 

+31) TH L St THE BRINT. 

AT r,u+ "si ara, 30; 

ET \o=lo+1: LET ER 

GB, 2. xs 

si6a IF oca_THEN RET! 

5178 PRINT AT 0,4; LET 0=0-1 

5182 60 TO 502 

9088 P 

Basic-Listing »Defender« (Schluß) 


Sonderheft Specnum 


Spiele-Listing 


Anaconda .. 
„..Ooder Fütte- 
rung der 
Raubtiere am 
Beispiel einer 
Schlange 


Ein Schlangenspiel mit konsequenter 
Nutzung der UDGs, die im Listing als 
Buchstabe mit einem Strich darunter 
ausgedruckt wurden. 


Nachdem das Programm geladen wurde, erscheint das Titel- 
bild. Sobald man eine Taste gedrückt hat, kann man die Tasten 
wählen, mit denen man spielen möchte. Danach beginnt das 
Spiel. Es handelt davon, eine immer länger werdende Schlan- 
ge durch ein Labyrinth kriechen und blinkende Punkte auffres- 
sen zulassen. Nach einer gewissen Zeitwird ein Bonus zuden 
Punkten addiert und eine neue Spielstufe beginnt. Sobaldsich 
die Schlange nicht mehr bewegen kann oder alle 5 vorhande- 
nen Labyrinthe geschafft sind, ist das Spiel zu Ende und man 


wird zu einem neuen Spiel aufgefordert. (S. Gleissner) 

2 REM ANACONDA 

2 REM © by SEHON GLEISSNER 

3 REM 17.5.1984 

4 PRINT AT 10,10; FLASH 1;"Bi 
tte warten": GO TO 45 

9 LET _hi=®: LET tt=280: LET a 
@=19: LET Br 

18 DIM 0 (1888): DIM ptıgao, 

@® BORDER 8: FAPER 2: 2: c 

: PRINT AT 0,8; FREIE TASTEND 
AHL FUER RICHTUNGS-RENDERUNG DER 
SCHLANGE" 


Dane ";eg: IF LEN e$ 
NPUT “Unten ";b$: IF LEN b 
$<21 THEN GO _ TO 22 
23 INPUT "Rechts ";c$: IF LEN 
N o2 
";d$: IF LEN d 


S 
PRINT AT 0,0;” BNEZEND 
ug Aero & 


2 READ n 

29 ROKE Vor "arıt,n 

38 Data 60,126,219,255,255,219 
@ POKE USR “b"+t,n 


® 

1 

28 NEXT 

3® DATA 60,126,219,126,60,24,0 


Eon tze To 7 
RER! 

RoRE U UsR "c"+t,n 

DATR 6,0,24,68,126,219,126, 

FOR t=0 TO 7 

R n 

FORE USR "a"st,n 

DATA S2,112,215,252,252,216 

"FOR t=2 TO 7 

READ n 

BOKE VER "ertın 

NEXT 

DATA d,14,23,63,63,23,14,4 
Rt =ö 167 


Q 


VOO AUSHMRRRNPPARNWABSRRRH 


PORE ÜSR "F"+t,n 
NEXT t 
DATA 24,24,24,24,60,68,68,6 
FOR t=8 TO ? 
RERD n 
POKE USR "g"+t,n 
378 NEXT 
na DATA 69,60,60,50,24,24,24,2 
392 En 0 TO 7 
418 BoRe L sr "h"+t,n 
438 DATA ö, 0,240,255,255,240,0, 
448 FOR t=D8 TO 7? 
ERD n 
458 POKE USR "i"+t,n 
al? 


»Qu18 4855 258,15,0,0 
TRReH TEN 


© 
098 SO0088HHCNDO888 SSR 


GA> URNFODGNANFFÜDPSW DNA 


D n 
532 Rex USR "j"+t,n 
TO_3000 
Sara 255,153,1593,255,255,15 


LET pu=® 
IF q2=®8 THEN FOR w=1_ TO 308 
xT u: PRINT PAPER 6; INK 8; A 
® m. Aa an 

& TO_41988 
so1 Er zen" TreR” Borden 2: "Par 
ER 2: 8 
522 ER 628 HEN BORDER 6: PRPE 
52° IF aö=6_THEN BORDER 2: PAPE 
R_@: INK 
sa4 Ir Kasse gen BORDER 7: PAPE 
505 IF aBsa. nen BORDER 6: PRPE 
808 PRINT AT 8,0: IF a6«8 THEN 


co To 811 
609 REM in Graphic-Mode 
619 PRIN et M 


N 

3 PRINT ar a, By u I aha 
u 

659 PRINT AT 5,0; " 7 4 ul So uus 


Basic-Listing »Anaconda« 


nn 


AD 


Spiele-Listing 


788 PRINT AT 108,0; " 4 4 Asscdiai 
Fe 7 


720 PRINT AT or EELEERTE 
IN B EI F 

742 PRINT AT 14,0" 2 suusuuug u 

ir, 

7Sd- PRINT AT 18.0 2u4 4 

Fre” artı?,d eds 3 

789 prıNt"ar”ı 444 Yu 

Selena, “ = ERRRERN 

ee RR EH " 

812 PrRIl er y 
a6=: To 815 

818 PRINT AT 1,0; " ai 

us 1 


„845 PRINT AT 1,0," 
AT "Bi" 

1,2 3 { : HEN 
+1,80," 3 

= Fe} abe u ne 2 Yelet- 

: PRINT AT 21,0; EHNEHENENNNRN« 

»17; INK 4;CHRS 


ıS2;CHRE 147: G0’TO 850 
848 PRINT AT 11,17; INK 4;CHRS 
152;CHR$ 147 

58 LET ul=2+INT (RND419): LET 
u@=1+INT (RND+3®) : IF SCREENG (u 
1,u2) <>" " THEN G0_TO_8 

868 PRINT AT nn INK 4; PAPE 

2; FLASH 

378 LET 01 (2) =11: 
ET P(1)=17: IF d6=3 
THEN LET 0 18: LET 02) =18 
873 LET ai 333 

RESTÖRE 


8808 
881 READ eur 2: ır vv1=280 TH 
EN GO TO 


892 BEER Peyaı ‚ya: 00 TO, eg 


1005 PRINT AT 8,8;"Punkte:", FLA 
SH da; g0,T0 2080 

1018 RiNT AT 8,8;pu: LET _2$=INK 
EY$ =d$ THEN LET b= 


= a 
1026 Ir 35248 OR assch THEN LET 
1839 IF ag=c$ THEN LET b=1 


1948 IF a$=b THEN Let ası 
1058 IF ; Sn a=s-1 
1088 Ir agzee DR" Sasbs TAEN Let 


4053,77 youı OR xou2 THEN 60 T 
i@ö4 BEEP_.05,16: BEEP „05,17: L 
ET pu=pu45s8 

1965 LET YISZ+INT (RNDFISL; LET 
Yazl+INT, (RNDSSO): IF SOREENS tu 

1067 

1066 65 

1267 ERINT AT U1u2) INK 2; PAPE 


FLAS 
Zoot BorgaeeNs (y+a,x+b)=" " TH 


ET a: LET x= 
2028 IF b= ar THEN DRIN Fi YyıX; I 


$ 
2038 IF b=-1 THEN PRINT AT 4X; 
INK 4; CHR$ 148 
2040 IF a Er THEN PRINT AT y,x; I 


5 KR b; INK 4;CHR 
180" ir SEREENS  tys1,x 


0 " THEN 

alıo IF_SCREENS (y,x+1 THEN 
so _Tü_2288 

2128 IF_SCREEN$ (y-1,x " THEN 
o_T0_a2 . 

aige Ir SSREENS (u,x-1) =" " THEN 


Pit 
ER) FOR, isle TO_36 STEP 2: BORD 
ER 048): BEEP 8.0081,t: NE 
xT STE? SE i 
2158: FOR t=36_TO STEP_-2: BO 
RER RND = E 
a 
R oO 
EN 


3zq3+1 


Ta 
a2=® THEN LET a2=46: 60 


94949194 


+ 


"ABCR-PAbvRrRR 
FO4+1-0-0-0-.00 


FEREIF I 
APER 8: INK 7: C 


FOR _s=-2 T 
+5: DRAW 8,38: 


Basic-Listing »Anaconda« (Fortsetzung) 


EusleraiSnactnnn 


Spiele-Listing 


DRgW 19,20; DARW 1@,-19;, Drau © 4293 59,7 
!_DRAU 8,20: DRAU -28,0 4198 R Rees SpieL 
N PLOT aats isons: DARL”O,.0 “ to PRINT AT 21,15 RLBSN 2, ENK 
AU 1: x Rene 8,-20: DR: RAU Neu es Spiel (ENTER) 
13048: DRAU 9,30 4420 IE INKEVSOCHRS 13 THEN GO 
Au 10,-10: grad © <ı2 
W : DRAW -28 25 Pu>hi ‚gHieN rel ie un 
g6r2.12008: ORAU -18, 4138 Ler"itegen. er g8= 
a0 DRAU 8,28: DRA a6=19: DIM Brit Hein DIM Pliose): 
u 19,10: DRA 18 co To 551 
Saga PLör iSa+s Pidts: DRAW -10, 
EA Sa Ran2o 22a 
- Basic-Listing »Anaconda« (Schluß) 
sa78a FLür 10943 19045: DRAU_ 6,40 on ‘ ) 
ar 18,- 8,-28: DRAW 
ieO Rad ‚es 
3840" Bor Mars 139+5: DRAW 8,40 
: DRAW 10,8: DRAU 18,-10: DRAU ® 
-20: oake -18,-18 GRAU -18,8 
8090 PLOT 220+3 ,130+s Au 6,30 
DRAW 18 R a: DRAW 
2,-30: DRAU 0,20: DRRAI ‚8 
sioa NEXT _s > 
3118 PRINT AT ae: by SIMON G 
LEISSNER" 
Sı115 PRII eng 
Sie sich rin 
und errei die i 
kenden Pı © by SIMON GLEISSNER 
3128 DIM 
3121 RES 
: RERD_0 
3148 DAT 
3,2,4,1 
3,0,16,1,i1 
2,14,2,18, 
20,1,28,0, 
»8,15,9,14 
‚16,2,16,2 
ı3,4,8,9,8 
2-4,0,-1 
3158 INK 4: 
AT otw) +1: 
Tu 
3199 LET v=i 
3288 FOR s=1_TO 
3205_IF s=1 TH 17,4; 
INK 7;,"17.8,84"; RA 4, 6 
)45; INK.d; Has is 557 +14, 
Biss 45 ": 60 TO 
210 IF o(s-1) cos) PRINT A 
Tolzıyta,pisen ISICHRs 1a0: 7 
I, SEEN RINT AT 0 (5-2) +14,P 
s- A 
3211 IF ots-1)»0ois) THEN PRINT A 
Totssısasıpis ch asichns 150; 7 
FSSJ@,THEN PRINT AT o(s-a) Hid,p 
s-2)45," " 
S2132 IF pis-1) >p is) THEN PRINT A 
T olssı saa,pisct ssichns 181; 1 
Ess], THEN PRINT AT ols-e) +i4,p 
an) 
3213 IF pis-1)<pis) THEN PRINT A 
T o(s-1)+14,p (5-1) +5;CHR$_ 1852: I 
R Sec Hagel RINT AT o(s-2) +14,P 
eis, 
3214 IF’s=2 THEN PRINT AT 0156) + 
14 ‚,p (56) +45; " 
En LET siss+10: IF s1>56 THEN 
si=s1-5 
ass a AT ols1) +14,P(s1)+5;C 
14. 
3äfo der si=51+1: IF s1>56 THEN 
ET s1=51-56 
5359 IF $1=1 THEN_PR an. AT_o{1)+ 
Er Bi AS,CHRR 147: G0_TO 3308 
268 IF pisıi-1)«pis1) THEN RRINT 
AT oisı a en 14 
3278 IF pisi-1)>pis1) THEN ERınT 
AT olsa) Hi8,p ish sö;chng, 148 
32898 IF (s1-2) >01s1) THEN PRINT 
AT ee el 148 
3290 IF o(s1-1) <0(s1) THEN PRINT 
AT _0(s1) +14,P (51) +48; CHRS 14 
3S0@ LET v=w41: IF INKEYSCH"" OR 
v»178 THEN GO_TO 8 
4208 BEEP „01,20: NEXT s 
Hardcopies »Anaconda« 


AT 


Spiele-Listing 


Geheim 


Abenteuerspiele, die in Zeitschriften 
abgedruckt werden, haben en 
Nachteil: Der Leser erfährt beim Eintip- 
pen, wie er die Rätsel zu lösen hat. Das 
Programm »Geheim« für jeden Spec- 
trum löst dieses Problem. 


Mit diesem Hilfsprogramm kann man den Zeichensatz ver- 
schieben. Resultat: Soll zum Beispiel ein K auf dem Bildschirm 
erscheinen, muß ein | eingegeben werden. 

Nachdem das Programm eingegeben und mit GO TO 300 
auf Band gesichert wurde, wird es gestartet. Es erscheint der 
normale Zeichensatz in Schwarz und der jeweils geänderte in 
Rot. 

Unten steht jeweils der POKE-Befehl, der eingegeben wer- 
den muß, um den »roten« Zeichensatz zu erhalten. Durch 
Drücken einer beliebigen Taste verschiebt sich der Zeichen- 
‚satz immer mehr. Man gibt zum Beispiel folgendes Listing ein: 

Durch POKE 23606,0 wird der Zeichensatz wieder »nor- 
male. (B. Baran) 


POKE_28ı 
BORDER 
LET a1: LET b=6 
® ERINT AT 17,8; "SCHWARZengrn 

“;AT_19,8; "ROT=d 


TO 63 
IT a,0 


LET q4=8 
FOR 9=32 
PRINT A INK i;CHRS 9; 


TO 95 
168 PRINT AT b,a; INK i;CHRS h; 


q=0 

1296 TO 127 _ N 
198 PRII AT C,9; INK i;CHRE J; 
: LET g=mg+1 

208 ; 


NEXT 


TURN 
FOR_f=0 TO 255 
POKE 23686 
LET ass: 


102 setzt Zeichensatz auf Normalstellung 
105 Farbsetzung und Variablenbestimmung 
110 Informationen erscheinen auf dem Bildschirm 
120— 205 kompletter Zeichensatz erscheint auf dem 
Bildschirm 
210— 260 POKE-Befehl-Schleife 
240 — 250 neuer POKE-Befehl erscheint auf dem 
Bildschirm 
260 Tastaturabfrage 
300—320 SAVEn für Programm: »Geheim« 
Programmstruktur 
IRB ERS FTERSGAS, are ycignng 
Ecircsco anpsys:Qimglletols © 
Be ln 
10sö"PoRE 2SeuB.0 b 
Verschleierter Text 
a 1.X-Print-Position für Zeichensatz 
b 2. X-Print-Position für Zeichensatz 
c 3. X-Print-Position für Zeichensatz 
i jeweilige INK-Farbe 
q Y-Print-Position für Zeichensatz 
f POKE-Befehl-Schleifenvariable 
g 1. Schleife zum Zeichnen des Zeichens 
h 2. Schleife zum Zeichnen des Zeichens 
j ‚3. Schleife zum Zeichnen des Zeichens 
Variablen-Tabelle 


Tasword- 
Einzeiler 


Immer mehr Spectrum-Fans kaufen 
sich ein Interface 1 und steuern dann 
mit der RS232-Schnittstelle einen 


Drucker an. 


Tasword two, »das« Textverarbeitungsprogramm, ist jedoch 
für ein Centronics-Interface geschrieben. Fügt man die Zeile 
265 ein, kann man jedoch auch seriell ausdrucken. Die Inter- 
face-Kontrollcodes können dann auf »0« gesetzt werden. 


Cer Te2, "60 süß 188 Eventuell (darüber gibt das Druckerhandbuch Auskunft) müs- 
2aQ EOS aUS0n,O nr sen andere Werte eingestellt werden. Beim Epson FX-80 und 
Ba a Be Bar. beim GLP von Gentronics reicht »0«. (mk) 
":; NEXT STOP 
3900 SAVE "Geheim” LINE 1 
S10 PRINT Band zurueckspulen f 
ver erify‘" a ae Pr 
ne 2a5 CLEAR #2 FORMAT "627400 
oren as. 0" 
Basic-Listing »Geheim« Basic-Zeile 265 


AQ za 


ME N, 


DIE 6:64 ENZYKLOPÄDIE 


DER AUTOR RAETO WEST verwendete 1 Jahr der Ana- 
Iyseund Dokumentation auf den C-64! Ergebnis seiner völlig 
unzeitgemäßen Geduld: Das einzige enzyklopädische 
64er-Buch, das neben Ihrem Computer liegen bleibt. 
Alle Erklärungen, auch komplexer System- und 
Programmfragen, umfassen bei Ray West stets beides; 
Kompetenz durch Einsicht und solides Faktenwis- 
sen. Beispielhaft: Musiktheorie und SID-Chip in 
Kapitel 13! 
EINREFERENZBUCH für professionelle Hard/ 
Software-Entwickler auf dem US-Standard des 
Buchs PROGRAMMING THE PET/CBM des 
gleichen Autors; EIN LEHRBUCH zu Aufbau 
und Anwendung von Mikrocomputern am Beispiel 
des C-64 für alle Autodidakten und Einsteiger; 
EIN ANWENDUNGS-HANDBUCH zum C-64/SX-64 mit 
über 300 Programmierungen aller 64er-Funktionen auch. der 
schwierigen, seltenen und meist gemiedenen. 


te-wi Verlag GmbH 
Theo-Prosel-Weg 1 
8000 München 40 


Etwa 500 Seiten, Softcover, DM 66,— 


NEU! Reparaturanleitung 
NEU! C-64 Akustik und Graphik Computer: C-64 
Ein planvoller Lehrgang - keine Beispiel Einzigartige Serviceunterlagen für Repara- 
sammlung - in anschauliche turen und Entwicklungsarbeiten am C-64 
daher für jedes Alter. Dieses Werk eröff Enthält Schaltpläne, Bauteile- und V 
net dem C-64 Benutzer die Welt der f ypenliste, u.vum; schnelle Service 
‚Graphiken und Klangbilder Es enthält tests; Anleitung zur systematischen Fehler. 
Programmbibliotheken und wird abge suche 
tundet durch zahlreiche Anhänge. In Ad-Mappe, DM 29,80 
John Anderson, 208 Seiten, Softcover, 
DM49,— STRUCTURED BASIC erweitert erheblich 
die Einsatzmöglichkeit des C-64/C-128 auf 
Befehls- wie Speicherebene! In Structured 


NEU! Der Sensible Basic sind möglich: rekursive Programm 


C-64 Programmsamın 

Für Erstbenutzer wie fü 

2 Bücher der Softwarenutzung al 
technologischen Eige 

Jedes Buch kc 


aufrufe, DO... LOOPs mit 128 Ebenen, 
hochauflösende Graphiken auch im Farb- 
odus, GOTO-freie Programme, gesamter 
‚eicherraum 100K durch externe ROMs. 
tandke/Hartwig, Buch (376 S) und 


Modul, DM 199,— 
COMPUTER FÜR KINDER || Computer für Kinder 


ee || (Sally Greenwood Larson) 
] LOGO Computersprache für 
Kinder und Eltern 
Dieses Buch beweist Jeder kann 
programmieren. LOGO ist die Compu || Begegn Computer 
Tersprache für Eltern und Kinder. Nicht En 
umsonst wurde dieser Titel zum „Buch r ne schöpllichen 
des Jahres 1983“ in den USA. LOGO —— Möglichkeiten. 
ist das Ergebnis der Erforschung mensch Computer für * richtet sich an Kinder im Alter von 8 
licher Intelligenz: = en bis 13 Jahren. Ein Handbuch für Beginner. Unterhaltsam 
nd Mathematikprol und leicht verständlich für die Computer VC20 und C-64. 
Daniel Wat. 354 Seiten, Softcover Ad, An Sea mputer VE2O und C-64, 
DM 59,— 


Ein Buch für Kinder und 
ihre Lehrer — ein kind: 
gerechtes Buch für die erste 


VisiCale (mit CBM Diskette) DM 79,— 
CBM Computer-Handbuch DM 59, 
Mikrocomputer-Grundwissen DM 36,-— 


C-64 IEEE-488 Buch und Steckmodul DM 239, 
Umweltdynamik (Prosp. anf.) DM 59, 
6502 - Programmieren in Assembler DM 59,_— 


Noch im Program 


Spiele-Listing 


Space-Smily 


Hier ist ein 5-Minuten-Spielchen für al- 
le Spectrum-User, die mit Beta-Basic 
arbeiten. Es gilt, die Space-Smilys zu 
befreien. 


Space-Smilys sindkleine, gelbe, runde Dinger, dieaussehen 
wie User-definierte Grafikzeichen (kein Wunder, da sie auch 
schließlich welche sind). Angeblich sind sie von irgendwoher 
aus dem Weltraum gekommen; jedenfalls ist eine Unmenge 
von ihnen in einem seltsamen Gangsystem mit direktem Aus- 
‚gang in den Weltraum eingesperrt, Der Spieler steuert die Smi- 
Iys mit den Tasten »Q«, »A«, »O« und »P«. Mit »Q« und »A« steu- 
ert man sie auf- und abwärts; mit »>O« kann man ihren Vorwärts- 
drang bremsen (sie bewegen sich immer vorwärts, es sei 
denn, eine Wand ist ihnen im Weg oder die Taste »O« ist ge- 
drückt. Die Taste »P« wird benützt, um Space-Grumpys zu ent- 
fernen. Space-Grumpys sind im ganzen Gangsystem verteilt; 
man unterscheidet sie von den Space-Smilys, die immer lä- 
cheln (smile=lächeln), daß sie immer mürrisch sind 
(grumpy=mürrisch). Außerdem sind sie durch ihre ewig 
schlechte Laune schon magentafarben geworden. Space- 
Grumpys haben Space-Smilyszum Fressen gern (wortwörtlich 
zu nehmen). Berührt ein Smily einen Grumpy, so ist das Spiel 
zu Ende. Dasich die Grumpys aber vermehren (pro gerettetem 
'Smily um 10) und die Gänge blockieren, können die Smilys, 
wenn sie direkt am Grumpy sind, diesen durch Druck auf Taste 
»P« in Staub und Asche umwandeln. Da die Grumpys manch- 
mal auch Löcher in die Wände bohren und sich dann hineinset- 
zen, wird nach Entfernung eines solchen Grumpys ein neuer 
Durchgangfrei, deroftangenehm als Abkürzung dient. Bei die- 
sen Löchern in der Wand ist, solange die Grumpys noch darin 
sind, äußerste Vorsicht geboten! Die Smilys gehen nämlich 
auch dann hindurch und das Spiel endet. Mit Taste »O« kann 
dem vorgebeugt werden. 

‚Außerdem liegen noch Käfige herum; wird einer von einem 
‚Smily berührt, so kommt dieses zum Ausgangspunkt zurück 
und es gibt 10 Minuspunkte. 

‚Apropos Punkte: Pro gerettetem Smily gibt es 10, pro abge- 
schossenem Grumpy 5 Punkte. 

Im günstigsten Fall dauert ein Spiel 5 Minuten; dann stoppt 
die über CLOCK gesteuerte Uhr das Programm. Meistens 
aber wird das Spiel sicherlich früher enden; außer die Grum- 
pys setzen sich an die günstigsten Stellen der Mauern. 
Eingeben und Laden des Programmes 
Beta Basic laden, auf KEYWORDS 1 — Modus achten. Pro- 
‚gramm It. Listing eingeben. Achtung! Wenn in Print-Posten 
»ALTER«, »B« oder »CLOCK« steht, so ist dies mit einem Ta- 
stendruck im Grafikmodus einzugeben, die Leerräume entste- 
hen von selbst. 

Programm auf Kassette saven. 

Vor erneutem Laden zuerst Beta Basic laden! 

Umschreiben für 16-KByte-Spectrum oder Spectrum ohne 
Beta Basic 

Da Beta Basic viel Speicherplatz braucht, ist das Programm in 
der Form desListings für den 16-KByte-Spectrum nicht geeig- 
net. Für alle 16-KByte-Spectrum-Besitzer und alle Nicht-Beta- 
Basic-Besitzer hier Anweisungen zum Umschreiben des Pro- 
gramms: 

1. folgende Zeilen löschen: 

70, 120, 130, 160, 280, 450, 470, 510, 830 

2. Änderungen: 

Zeile 520—550, 820, 840: alle »PROC PRINT« ändern in 
»GO SUB 590« 


EN a 


Zeile 590: »DEF PROC« ändern in »REM« 
Zeile 620: »END PROC« ändern in »RETURNe 

Zeile 150,200,210,250,520,940: in den Print-Posten das 
»ALTER«, »Be und »CLOCK«als »A«, »B« und »Ceim Grafikmo- 
dus eingeben. 

Zeile 810: Das »ALTER TO PAPER 7« weglassen oder änden 
in»PAPER 7: CLS«: das »ALTER TO PAPER O« weglassen ‘oder 
ändern in »PAPER 0: CLS«. Beim Weglassen geht ein guter Ef- 
fekt verloren, beim Ändern wird der Bildschirm gelöscht, was 
bei ALTER nicht der Fall ist. 

3. neue Zeilen: 

65 DEF FN t()=(PEEK 23672+256*PEEK 
23673+65536* PEEK 23674)/50 

160 POKE 23672,0: POKE 23673,0: POKE 23674,0 
280 IF FN t)>300 THEN GO TO 820 

510 POKE 23658,8 

830 PRINT AT 0, 31-LEN STR$ FN 6();FN tt) 

(Anmerkung: In FN t() steht die Zeit in Sekunden) 


(H. Prillinger) 
— 
‚Variablenliste: 
Punktzahl 
fi 1, wenn geschossen wird, sonst O 
sız Zeilenzahl des Smilys 
stt ‚Spaltenzahl des Smilys 
udg Wert zum Poken der User-Grafics 
as String, der in die Bildschirmmitte ge- 
‚schrieben wird 
fin Zeile, in die a$ geschrieben wird 
K1,k2,kS geben Auskunft über gedrückte Taste, 
siehe Zeile 650-670 
ef z+e und t-+f sind Position des abzu- 
‚schießenden Grumpys 
ab ‚Steuervariablen von FOR/NEXT- 
Schleifen 
igliederung: 
10 — 210 Initialisierung 
220-290 Hauptschleife 
300 — 380 Bildschirm 
390 — 440 User-Grafies 
450 — 470 wird aufgerufen, wenn Beta Basic fehlt 
480 — 580 Programmerklärung 
590 — 620 ti 
630 — 730 Tastaturabfrage 
740 — 790 Attributabfrage 
800 — 870 
880 


0:91:07 


NOCH EIN SPIEL ?. 


Hardcopy des Spielfeldes 


Ara San 


Spiele-Listing 


19 REM SPACE-: 
28 BEI Jon HoRST- PRILLENGER 


4® REM A-5280 BRAUNAU AM INN 
S® REM ZX SPECTRUM BETABASIC 


REM 
Se, PEEK 237313234 THEN 60 T 


129c" 20" 
139 ı KEvLORDS ® 
149 G0_SUB 380 
158 FOR A=1 En 38 _ORINT AT INT 


SaNDaBE) .ENT (RNORaS5 485 INK O5 
158C1 
170 LET Sı ‚BET ST=1 
180 LET Z=20: LET IT= 
S0 FOR A=1 70" 3: PRINT AT _RND« 
@1,RND#S1; INK 7; "2": NEXT A 
@ FOR A=1 TO 18: PRINT AT INT 
{RND=22) ‚INT (RND#26)+5; INK 3; 
BRICHT 1: "8": NEXT A 
218 Prınt zZ, Tun“ 
2 EN 573485252 _OR_IN 5734 
22253 IN 64518(>255 OR IN 65 
822 3255 RTHEN 68" SUB 
Sa IE EI THEN CO SUB Seo 
328 &0 5 


(2) 820 
290 50 TO_22 
ER REM BrsPlav 


338 FOR, =0 TO 6: 
INK ı NEXT A 
„358 FöR ; To_21 
20 FOR, Az 
NK 4; 


PRINT AT A,26 
PRINT AT R, 


2: PRINT, AT, R:4 
12; E2au Bi: 
ER 


DRAU 255,0: PLO 


2: NS 
372 Ası T 
0328 4288 INT 
3 URN 


oO 


5 
RN! 


408 BES Töne 430 
418 FOR A=USR "A" TO USR "C"+7 
428 ReAD uDe FOxe A,UDE: NEXT 


30 DATA _60,126,219,255,219,281 
138 52,58; 185 219,285,231,219,1 
28,60,2: ©160.6.144,2,48 
Fe 8 E70 3 


PRINT. 8,8; "FUER DI 

es ERIGRAHN NETT Seth BASIC U 
ION A ESDEDER LICH." 

ee PRINT 12,0; "LADEN SIE ZU 

ERST BETA Bisıc, DANNERST DIESES 


PROGRAMM." 

78 PRINT _AT 16,0; "DRUECKEN SIE 
EINE _TASTE.": PAUSE 8: NEW 

® REM ERKLAERUNG 


48 

498 BEORDER 8: PAPER _®: INK 6: B 

ISHT_@: FLASH 8: OVER 8: INVERS 
ANDOMIZE 


ENT 
MILY 
ee, NDE 
PRI 


MILYS":TPRI 
EGEN SIE UN 
! SPACE-SMI 
AuBEn DS 
ES LOCH, AUCH" :®PRIN 
a EIN FEIND DARIN 


üreo EIN KREFIG, (#) 
LEH As="S0 
sin ES "EUNKTERBZUEGE UND" -#PRIN 


Ei SMILY_MUSS, ZUM A 
V3sanes-® RINTI. ber As="PUNKT 
ZURUECK." PRINTI 


558 LET LIN=LIN+l: LET A$="TAST 
EN: 8: AHaNEOR FANSRNURTER" PRINT 
1 NICHT NACH RE© 
Ehen E27 

HIESSEN" zirı 
Be Bahr 20;AT 1,5; "START MIT 


FE 
ES5o ir INKEY$<>CHR$ 13 THEN G0 


TO_570 
588 RETURN 
599 "PRINT 4 
808 PRINT AT LIN,INT t(92-LEN A 
"19 LER LineLins 
=LIN+ 
S2o= 
$98 REM TASTATUR 
520 Let KISIN 57948; LET K2sIN 
säslo; Ler 5503; 
SS9 REM": K1=284/0 Rl=ass 
668 REM O+P:Kk1=a52 
878 REM 0:K2=254/n:K3=2! 

580 IF K2=354 THEN LET SL=SL-1 
598 IF K3=254 THEN LET SL=SL+l 
1'@9 IF Ki=2Sd OR Kı=asa THEN LE 

- 
1d Ir (K2c9953 AND Kıcasaı TH 
EN LET ST=5T+ 
Nas ır ATTR"tSL,STI=4 THEN LET 
ST=ST-1 
232 RETURN 
2749 REM_FEL 
258 IF AITk, BL SSTL=ZTHEN LET 
RTS=PTS-10: BEeE ‚o2,4g; PRINT A 
TZITE =20: LET T=1: 
T_&42: LErster: Ext 


co TO 
788 IF ATTR (SL,ST)c>6 AND ATTR 
{SL,5T) <367_THEN BEEP .1,8: LET 


SL=Z: LET ST=T 

779 IF_ATTR_(SL,ST)=6 THEN BEEP 
«01,T-5: PRINT AT 2,1;" ": LET 
Z=S[: LET _T=5T 

788 IF ATTR (SL,ST)=67 THEN 60 
TO_808 

798 

808 REM 

828 FOR Bei2 To_30 STEP 5: FOR 
Reg0+D To 10:8 STEB =i: a_TO PAPE 

za To TO ERAPER ©: BEEP .@B1,A: N 

Ext 

528 INDERSE 1: =d: a 
$="PUNKTE: ger: Erz: Worin: 2 


"958 BRENT AT QaKEN TEL): 
RbEENass-NDcn eı 


PAUSE 8 
sc. AND INKEYS<> 
ID INKEYEO"Y THEN 60 TO 8 
860 IF INKEY$= THEN STOP 


FIRE 
898 LET E=d: LET F=& 
son Ir ATIR (Z+1, TI=67 THEN LET 


sis, ıF arrz, (Z-1,T) =67 THEN LET 
822. Te ARE (Z,T+1)=657 THEN LET 


Es 

530 ıFn Arte (Z+E,T+F)=87 THEN L 
E TS=PTS+S 

S4@ PRINT AT ZHE,TIES INK STE" 
ı FOR A230 TQ 20 STEP -1: BEEP. 
003,A: NEXT A 

956 LET FI=8 

958 RETURN 


Basic-isting »Space-Smily« 


N 


Anwendungs-listing 


Dreidimensio- 
nales Plotten 


Hier wird erklärt, wie mathematische 
Funktionen mit dreidimensionalem Ef- 
fekt dargestellt werden können. Das 
abgedruckte Programm läuft auf je 
dem Spectrum, ist aber auch für Be- 
nutzer anderer grafikfähiger Compu- 
ter interessant. 


Echte dreidimensionale Grafiken sind auf einem Bildschirm 
nur mit Spezialbrillen möglich. Wir beschränken uns hier auf ei- 
ne perspektivische Abbildung. Da die mathematischen Funk- 
tionen in drei Achsen dargestellt werden, ist die Bezeichnung 
»dreidimensional« dennoch gerechtfertigt. 

Ein Algorithmus zur zweidimensionalen Funktions-Darstel- 
lung ist recht einfach. Die Zahl der vertikalen und horizontalen 
Punkte ist geräteabhängig. Beim Spectrum sind 176*256 
Punkte mit dem Basic-Befehl Plot setz- und löschbar. 

Man kann eine Funktion natürlich nicht vollständig zeichnen 
—die Achsen sindja unendlich lang —, sondern nur einen Aus- 
‚schnitt. Dieser Bereich wird mit den Variablen xlinks, xrechts, 
max und min festgelegt. Die Extrema (Maximum und Minimum) 
können entweder von vornherein bekannt sein oder sie kön- 
nen von einem Programmteil durch »Ausprobieren« ermittelt 
werden. 

Nun können die Funktionswerte berechnet und die entspre- 
chenden Punkte der Reihe nach gesetzt werden. Die Position 
des zu setzenden Punktes errechnet sich aus der Formel 
in 


fx} 
max — min 


Bildschirmhöhe - — 


by=175 

S® FOR n=@ TO bx 

608 LET x=nsbx32&PI 

78 LET fvonx=SsıN x 

SO RLOT n.buxtfvonx-mingz 
sax-nin) 


ıLLıst 


2-fay) 


—r 


Bild 2. Das dreidimensionale Koordinatensystem 


Bild 3. Eine Anzahl verschobener Kurven 


‚Auf diese Weise entstand Bild 1. Zeile 100 kopiert den Bild- 
schirminhalt auf den Drucker und listet das Programm auf. 

Man kann entweder alle Positionen berechnen, in einem Feld 
abspeichern und erst zum Schluß zeichnen oder aber nach je- 
der Rechnung den entsprechenden Punkt sichtbar machen. 
Das zweite Verfahren hat den Vorteil, daß etwas auf dem Bild- 
schirm passiert und die unvermeidliche Wartezeit nicht solang 
erscheint. Außerdem wird weniger Speicherplatz gebraucht. 

Wie entsteht nun die räumliche Wirkung der Bilder? Zu der 
waagrechten x-Achse und der senkrechten f(x)-Achse kommt 
eine weitere für die Tiefe, Dieses Koordinatensystem ist in Bild 
2 skizziert. Die Funktion hängt außer von xjetztauch noch von 
yab, z = f(xy). 

Der plastische Effekt tritt ein, wenn eine Reihe von Kurven 
jeweils leicht verschoben aufeinander gelegt wird (Bild 3). In 
der Projektion verdeckte Flächen, also das Innere des 
Funktions-Gebirges, soll nicht erscheinen, Man kann dieses 
Problem ignorieren, der Graph wirkt dann jedoch wie ein 
durchsichtiges Netz und nicht wie ein massiver Körper. 

Beim hier besprochenen Programm wird das Bild in lauter 
Schichten von hinten nach vorn aufgebaut. Jede einzelne 
Schicht wird nicht als Kurve gezeichnet, sondern als Fläche, 
von der nur die obere Kante zu sehen ist. Das läßt sich mit ei- 
ner Reihe ausgesägter Bretter vergleichen, die hintereinander 
gestellt werden. In Bild 3 ist diese Struktur deutlich zu erken- 
nen. 

Werden die Scheiben abwechselnd schwarz und weiß ein- 
gefärbt, entsteht der Streifen-Effekt von Bild 4. Derallmähliche 
Aufbau läßt sich am Bildschirm verfolgen. Dabei läßt sich die 
Arbeitsweise des Programms leicht nachvollziehen. 

Sehen wir uns Bild 5 an. Es handelt sich um eine gedämpfte 
Schwingung, die um den Mittelpunkt rotiert. Eine gedämpfte 
Schwingung entsteht beispielsweise durch ein Pendel; der 
Ausschlag wird immer schwächer bis zum Stillstand. Die Rota- 
tion sieht schwieriger aus als sie ist. Die einfachere Funktion, 


EN 
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Bild 5. Gedämpfte Schwingung rotiert 


wie die Sinusberge auf Bild 4, sind von x und y abhängig, also 
2=1(xy). Eine rotierte Funktion ist jedoch abhängig vom Ab- 
stand zum Mittelpunkt. 

Dieser Abstand läßt sich mit dein Satz des Pythagoras be- 
rechnen. In einem rechtwinkligen Dreieck ist die Summe der 
Kathetenquadrate gleich dem Hypotenusenquadrat (Bild 6). 
Die Seiten am rechten Winkel entsprechen hier x und y. Der 
‚Abstand zum Mittelpunkt ergibt sich somit aus 


R=e+ty 
r=yR@+y 


Die Zeile LET r = SOR (x*x+y"y) findet sich mit den Num- 
mern 790 und 980 im Programm wieder. Wenn als Funktion 
nun zum Beispiel SIN r festgelegt wird, entsteht eine rotierte 
‚Sinuskurve, 

‚Auch der »Hut« auf Bild 7 macht von der Rotation Gebrauch, 
ebenso Bild 8. Dieses Bild stellt eine plattgedrückte Kugel dar, 
die mit den Buchstaben »3D« beschriftet ist. Dabei wurde eine 
Besonderheit des Spectrum ausgenutzt: Die einzelnen Punk- 
te eines mit PRINT geschriebenen Textes lassen sich mit der 
Funktion POINT abfragen. Mit PRINT AT 21,0;»3D« wurden die 
Buchstaben auf die linke untere Ecke gebracht. Beim Plotten 
wurden die Punkte dann abgefragt und ein Teil des Bildes da- 
durch leergelassen. 

'Am schwierigsten war die Pyramide auf Bild 9 festzulegen. 
Für die vier schrägen Flächen und den Rand ist eine umfang- 
reiche Fallunterscheidung nötig, die nicht von IFs, sondern von 
'AND-Operatoren geleistet wird. 


ae ne Fa re 


Bild 10 zeigt die Gaußsche Normalverteilung. Diese Kurve 
hat in der Statistik eine große Bedeutung. Wenn Sie hundert 
Hasen fangen und die Häufigkeit ihrer Ohrenlänge auf Millime- 
terpapier eintragen, wird eine ähnliche Kurve herauskommen. 
Am Gipfel schlagen sich die zahlreichen Durchschnitts-Hasen 
nieder. Links und rechts sind die seltenen Tiere mit besonders 
kleinen beziehungsweise besonders großen Ohren berück- 
sichtigt. Weil sie so selten sind, ist die Kurve dort niedriger. 

In Bild 11 ist das Listing zu sehen. Das Basic-Programm ist 
in mehrere Blöcke unterteilt, die nacheinander durchlaufen 
werden. Manche halten sowas für unmöglich, aber es sind we- 
der GOTOs noch GOSUBSs in diesem Basic-Programm enthal- 
ten! 

Es ist nicht einfach, die GOTOs zu vermeiden. Einige Pro- 
grammteile wie zum Beispiel Gitter | dürfen nur unter bestimm- 
ten Bedingungen ausgeführt werden. In der Programmierspra- 
che Pascal würde dieser Abschnitt lauten 
IF gitter 
THEN BEGIN 


END; 

In Basic hingegen darf auf ein THEN nur eine einzelne Zeile 
folgen. Darum würde an einer solchen Stelle überlicherweise 
ein GOTO benutzt: IF gitter = 0 THEN GOTO 700 
‚Sprünge sind jedoch aus gutem Grund verpönt, denn sie zer- 
‚stören die Programmstruktur. Man kann einfach nicht mehr fol- 


gen. 

Der Autor hat eine solche Abneigung gegen GOTOs, daß er 
stattdessen FOR-NEXT-Schleifen benutzt. Im Beispiel werden 
die Zeilen 520-590 nur dann ausgeführt, wenn die Variable 
»gittere ungleich Null ist; sonst nicht. Das klappt nur bei 
Sinclair-Geräten, in anderen Basic-Dialekten wird eine Schlei- 
fe immer mindestens einmal durchlaufen. 

Am Programm-Anfang werden eine Minimum- und eine 
Maximum-Funktion definiert. Sie benötigen zwei Parameter 
und liefern als Ergebnis den kleineren beziehungsweise den 
größeren Wert der beiden Zahlen. Dann erfolgen eine Reihe 
von Eingaben, sie werden naher noch besprochen. 

Im Block Kalkulation werden die Variablen »ebenen«, »stepx« 
und »stepy« berechnet. Gitter | und II zeichnen den Kasten 
rund um die Funktionsdarstellung. Sie werden nur durchlau- 
fen, wenn das vorher vereinbart wurde (»gitter« ungleich Null). 

‚Auch der Block min/max-Automatik wird nur auf ausdrückli- 
‚chen Wunsch benutzt (wenn »min« und »max« beide Null sind). 
Der Teil PLOT ist der wichtigste. Hier angekommen, stehen alle 
Variablen fest. Die Funktionswerte können nacheinander be- 
rechnet und gezeichnet werden. 


Hinweise zum Eintippen 


Beim Erreichen der Zeile 1200 ist das Bild fertig. Wenn ein 
Drucker angeschlossen ist, wird ausgedruckt. Alle wichtigen 
Parameter werden mit ausgegeben, damit man die Grafik spä- 
ter rekonstruieren kann. 

Wer ohne langes Eingeben zu einem schnellem Ergebnis 
kommen will, kann die Programmteile Gitter I und II (Zeilen 
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Bild 7. Hut 


Bild 8. Eine plattgedrückte Kugel 


500-600 sowie 1100-1170) und min/max-Automatik (Zeilen 
700-830) erst einmal weglassen. Das Gitter wird dann eben 
nicht gezeichnet und Minimum/Maximum sollten bekannt sein. 

Im Listing läßt sich die Null nur schwer vom Buchstaben »0« 
unterscheiden. Dennoch dürfte es nicht zu Mißverständnis- 
sen kommen: Der Buchstabe taucht nur innerhalb von Wörtern 
auf, alles übrige sind Nullen. 

Die Funktionsnamen wie SIN oder EXP erscheinen als Gan- 
zes Im »Extended Mode« (Caps Shift und Symbol Shift gleich- 
zeitig drücken, blinkendes E erscheint). Werden sie fälschli- 
cherweise aus Einzelbuchstaben zusammengesetzt, reagiert 
der Spectrum mit »Nonsense in Basic« beziehungsweise blin- 
kendem Fragezeichen-Cursor. 


Die Bedienung 


Nach dem Start mit RUN werden eine Reihe von Eingaben 
verlangt: 
fx,y)= Die darzustellende Funktion. Als Parameter sind x, y 
undr (rwie Radius, der Abstand vom Ursprung) möglich. Alle 
Basic-Funktionen, auch selbstdefinierte, dürfen vorkommen. 
Funktionsnamen nicht aus Einzelbuchstaben zusammenset- 
zen. 
xlinks, xrechts, yhinten, yvorn 
der abzubildende Funktionsausschnitt 
nicht definiert: Normalerweise Null eintasten. Wenn ein Teil 
des angegebenen Intervalls nicht gezeichnet werden soll, die- 
sen Teil angeben, etwa in der Form "«<7 OR y>=0". Das ist 
zum Beispiel bei der Tangensfunktion nützlich, von der sich ei- 
nige Werte nicht berechnen lassen. 
min, max Der niedrigste und der höchste Wert. Wenn unbe- 
kannt, jeweils Null eingeben, dann ermittelt das Programm sie 
automatisch. Die Bestimmung der Extrema dauert allerdings 
eine Weile, da alle Funktionswerte berechnet und verglichen 
werden. Während dieser Operation wird ein Countdown ange- 
zeigt. 


10 REM BRRUNKAEHRUNUUREHIE 

20 REM ® [23 DaB: 

3a REM AUNRRHUNHUSENKRUNKE 

40 REM mit 2X Spectrum 

5a REM 

50 REM 

29 REM von Oliver Voelckers 

88 REM Bronbeerweg 5 

92 REM 4580 Ösnabrueck 

109 REN ä H 

118 REM Minimumfunktion 

128 DEF FN mia,b)=ia AND ac=b) + 
ib_AND a>b) 

138 REM Maxinumru 

14@ DEF FN n(a,b) 

God Ren Eu ® Eing 

210 INPUT "fix,y)= 
"SXLinks'"xrechts= 
hinten= "; 
örnz worn’"nicht 
‚ng =_";min‘"max= 

2 PUT "ix"; rx," Fa Narys 
MOVERE, | ROVeX ‚'möveun "inoVeyıc 
estreift? 8/1", gestreift‘ 
itter? Srırzsitter x 
238 IF gitter THEN INPUT "gitte 
rstep?", ER itterstep & 

308 REN ganan Bildschirmhoene u 
nd -breit 

818 LET Ex=255 

328 LET bye=17 

408 REM ZBNER Kalkulation 

418 IF NOT movex AND NOT movey 
THEN INPUT "Ebenen?" ‚ebene 

420 IF NOT movex AND noveu_THEN 
VET ebenenz (by- Fu) ABS movey 
39 IF mövex AND NOT movey THEN 
LET ebenen=(bx-fx) /ABS movex 

40 IF moVex AND movey THEN LET 
ebenen=INT Fi bXx- fx) /ABS mov 


8X, (by-Fy) /ABS 
258 VE en, 


PER) LET BIS AN SER URSNCEN DIE 


en ebenen ’ 
28 Ben V=NOT gestreift 


REM susus Gitter 
Eur 


= 
a=i TO gitterc>@ 
yrenster=by-fy AND move 


xfenster=bx-fxX AND move 


fenster TO yrenster+ 
SEnNceR, PLO ENT 
NEXT 


„2: 
380 PR mextenster TU Krensters 
ERSTER giyteestep: PLOT n‚urens 


= D 
568 PLOT xlenster ‚urenster: oRA 
WB,fy: DRAW ebenantnavex ebenen 


#mov 
Er BLor IR EREIEL /UFENSLErtEN: 
DRAU fx,8: DRAW ebenenzmovex,ebe 


nensnove 
58 xfenstersfx,ufensters+f 
A 8,-fy: DRAW ebenensnovex 
„ebenen#növey 


fx, fy Die Breite und Höhe jeder »Scheibe«. Der Bildschirm ist 
255-175 Punkte groß. Die Scheibe muß etwas kleiner sein, 
weil jede zur vorherigen leicht versetzt wird. Brauchbare Wer- 
te sind zum Beispiel 165 und 85. Für eine Darstellung mit nur 
zwei Dimensionen — also nicht räumlich — 255 und 175 ein- 
geben 

movex, movey Anzahl Punkte, um die jede Ebene horizontal 
und vertikal verschoben wird. Positive Werte für movex und 
negative für movey sorgen dafür, daß das Zeichnen links oben 
beginnt und rechts unten endet. Kleine Werte ergeben ein fei- 
neres und dichteres Bild, der Aufbau dauert aber auch länger. 
Guter Ergebnisse liefern 3 und —3. Für zweidimensionalen 
Plot beide Male mit Null antworten. 
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598 PLOT _xten 
DRAW -fx,@ı DRI 
ı 


M assan ao TRIER tonatik 
ain=d Al An maxad 


Ihintensnsste 
258 FR? Al;nr Een nsra 
2?0°FOR n=@ TO fx 
es LET nn x 
2798 LET r=SOR ix# x 
590 IF_NOT VAL n$ TMEN LET zn 


ae Baar. nen “imin,z): 


> 
38 NEXT a 
338 NEXT a 
s98 REM ats: Plot 
318 LET Stauch=fy/imax-nin) 
329 FOR m= ebene 
9338 LET xrenster=(bx-fx AND mov 


F 
Se +Mmovex 
348 LET yrenster=iby-fy AND mov 
e359 der yeohi BERTIBELTEEN 
ä 
3680 FÜR Br 


378 LET Saxuinssinsstepx 
289 LET SESER (Xaxtuau 
398 IF n$ THEN Li 

T EraUchryr Ben, 


nste 2: 
Vorne” INGERSe inv;®d, # AND: nove 
3 -z: Enten renscen 


zZ 
NEXT .n 
1813 IF gestrei ft THEN LET inv=N 


1828 NEXT m 
2108 En * wsuue Gitter II 


>@ 
218, BLöT xtenstersufenster: DRA 
3238 "ALor xfenster ‚yfenster+fy: 
1148 PLOT xfenster+fx,yfenster+f 


Y DRAW 8,-fy 
150 Bra xfenster+fx,yfenster: 


Day 5% 

TIEB Flöf xtenster+trx anD movex 

a ”y Tensräc+tes AND movey<B): D 
eben: movex,-eben 

Enzuovsy. 

88 RENT aduge ausdrucken, 
„LPRINT "Ex,4)="; ink 
Ixlinks“"x Fechtseen ht 
hint anz ” IE Y 
yv warhuinigh et 

2 = ";ni 

ia26 LPRINT Eye Mu: 

u ";movex, wörele ;mOoVey 

1238 Copy 


Bild 11. Ohne GOTOs: Das vollständige Listing 


gestreift 0 für nein, 1 für ja. Bei 1 wird nach jeder Ebene die 
Vorder- und Hintergrundfarbe gewechselt. 
Gitter O für nein, 1 fürja. Beieiner positiven Antwort wirdnoch 
mit »gitterstep« nach der Größe des Rasters gefragt, mit der 
die Hinterseite unterlegt wird. Ist kein Raster gewünscht, dar- 
auf 255 angeben. 
Ebenen Diese Eingabe wird nur verlangt, wenn für movex und 
movey Null angegeben, also eine zweidimensionale Darstel- 
lung gewünscht wurde. Es ist dann möglich, mehrere Kurven 
direkt aufeinanderzulegen. In der Regel soll nur eine einzelne 
Kurve gezeichnet werden, dafür 1 eingeben. 

Die Vielzahl von Eingaben macht das Programm universell, 
es sind völlig unterschiedliche Grafiken möglich. Andererseits 
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Bild 10. Gaußsche Normalverteilung 


wird das Programm dadurch schwierig zu bedienen. Wer sich 
noch nicht damit auskennt, sollte erst nur die Funktion variie- 
ren (fixy), xlinks, xrechts, yhinten, yvorn, min, max) und für die 
übrigen Parameter die Standard-Werte benutzen. 

Bild 12 zeigteine Anzahl sinnvoller Eingaben, mit der die Bil- 
der 4-10 gemacht wurden. 

Bild 13 zeigt die'verwendeten Variablen. In Bild 14 ist eine 
Erweiterung des Listings zu sehen. Werden diese Zeilen zu- 
sätzlich eingetippt und mit RUN 1300 gestartet, dann wird der 
Inhalt der DATA-Zeilen als Eingabe verwandt. Wenn diese Er- 
weiterung läuft, malt und druckt der Spectrum ein Bild nach 
dem andern. Das Erstellen einer Grafik kann nämlich je nach 
Funktion zwischen fünf Minuten und mehreren Stunden dau- 
ern. Währenddessen kann man also ruhig Kaffee trinken ge- 
hen. Zeile 1330 enthältleider eine Sprunganweisung. Statt die 
Grafiken auszudrucken, können sie auch nacheinander auf 
Microdrive gespeichert werden. Zeile 1230 könnte dann lau- 
ten »SAVE*",11$(TO 4)SCREENS$«. Als Dateiname werden 
dann die ersten vier Buchstaben des Funktionsnamens ge- 
nommen. Das Abspeichern dauert rund zehn Sekunden. 


Übertragung auf andere Computer 


Obwohl das Programm klar strukturiertist, kann die Übertra- 
gung auf andere Computer erhebliche Schwierigkeiten berei- 
ten. Das hängt damit zusammen, daß das Sinclair-Basic unge- 
wöhnlich ist und andere Versionen nicht dasselbe können. 
Wer in dem kleinen Spectrum nur ein kleines Basic vermutet, 
wird sich wundern. 
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er 
en 


AND ABS x e=1 AND ABS ye=l == || 


EXB(-0. 58282/73125 =. 


Hä-r AND x) y AND -y) 
Hlyeh AND 9 7 AND xy) 


alsak AND xcey AND Aca-y) 


Bild 12. Einige Beispiel-Eingaben 


Das fängt schon bei den ersten Zeilen an. Beim Spectrum 
dürfen selbstdefinierte Funktionen bis zu 26 Argumente ha- 
ben, bei den meisten Microsoft-Versionen nur eines. Die Funk- 
tionen für Minimum und Maximum lassen sich dort also nicht 
verwenden und müssen umständlich ersetzt werden. 

Die Funktionen AND, OR und NOT funktionieren in den ver- 
schiedenen Basic-Dialekten auch verschieden. Manche ver- 
gleichen die einzelnen Bits der internen Zahlendarstellung 
(zum Beispiel 6 AND 3 = 2). Andere, wie der Spectrum, prü- 
fen nur, ob die Zahlen gleich oder ungleich Null sind. Der Spec- 
trum behauptet, 6 AND 3 = 6, weil drei ungleich Null ist und 
‚somit 6 AND TRUE berechnet wird. Beide Verfahren haben ih- 
re Vorteile. 

‚Am nächsten Problem scheitern alle Geräte außer Sinclair 
und Acorn. Der Wert eines in einem String stehenden numeri- 
schen Ausdrucks soll berechnet werden. Beim Spectrum geht 
das mit VAL, beim Acorn mit EVAL. Andere Rechner schaffen 
es nicht, VAL’'SIN (Z* 3)" oder auch nur VAL’1+1" auszurec! 
nen. Beiihnen kann die VAL-Funktion nur einzelne Ziffern in ei- 
ne Zahl umformen, etwa VAL’234”. 


ab Lokale Variablen für Minimum- und 
Maximum-Funktion 

ebenen ‚Anzahl Schichten, mit denen die Grafik 
von hinten nach vorn aufgebaut wird. 

ty Breite bzw. Höhe einer Schicht in Punk- 
ten 

1s die Funktion. Darf beliebig lang sein. 

gestreift 

gitter 

gitterstep Größe der Hinterseiten- 'Rasterung in 
Punkten 

inv Invers O (aus) oder 1 (ein). Zustand wird 
von Streifen zu Streifen gewechselt. 

max Höchster Punkt auf der z-Achse 

min Niedrigster Punkt auf der z-Achse 

movex,movey Verschiebung jeder Schicht nach rechts 
bzw. oben. 

n$ numerischer Ausdruck, der angibt, wel- 
cher Bereich nicht gezeichnet werden 
soll. 

stauch Umrechnungsfaktor von der z-Achse in 
Bildschirmkoordinaten 

stepx, stepy Schrittweite auf der x- bzw. y-Achse, die 
‚der Schichten-Verschiebung entspricht. 

xfenste, 

yfenster Position der Ebene — des "Fensters — 
auf dem Bildschirm 

xlink,xrechts Intervall auf der x-Achse 


Yhinten,yvorn Intervall auf der y-Achse 


Ra 


‚Von der unterschiedlichen Interpretation der Schleifen war 
‚schon die Rede. Bei Nicht-Sinclair-Geräten müßte in den Zei- 
len 510, 710 und 1110 jeweils IF ... GOTO ... stehen. 

Es versteht sich von selbst, daß ein Programm wie dieses 
nur auf einem grafikfähigen Computer ablaufen kann. Bei- 
spielsweise wäre es aussichtslos, das 3D-Programm auf einen 
normalen Commodore 64 zu übertragen, denn in dessen Ba- 
sic kann man keine Punkte setzen geschweige denn Linien 
ziehen. Man brauchte dazu einen Toolkit oder eine Basic- 
Erweiterung. 

Wie man sieht ist es fast unmöglich ein derartiges Basic- 
Programm geräteunabhängig zu schreiben. Natürlich kann 
man "3D-Plot” auch in der Programmiersprache Pascal formu- 
lieren. Dem steht im Wege, daß Grafik in Pascal nicht Standard 
ist. Außerdem gibt es kein Äquivalent zum Sinclair-VAL. Man 
müßte diese Funktion entweder selbst programmieren, das 
wäre aufwendig und langsam. Oder man müßte das Programm 
für jeden Durchgang neu kompilieren. 


(Oliver Völkers) 
« Bild 13. Die verwendeten Variablen 


1240 PAUSE SOR 
OÖ REM Kuun8 Daten 


I+PL,0,PI+PL,"@ 
58 DATA'BES-90 176-688, -3,-2,1, 


156: 
2,8 
1570 REN gedsenpfte Schwinsung c 
ati 
138 
13 
33 
28 Be nornelverteitu 
3 


An#X/u/y) 7472 
2,.81 


‚104PI,- 
ann [) 
chwingung r 


))=Cc0s r 
-10,10 


Bild 14. Das Erweiterungs-Listing für Stapelbetrieb 
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Super- 
schneller Z80- 
Disassembler 


Mit dem hier veröffentlichten Disas- 
sembler, der in Maschinensprache ge- 
schrieben wurde, lassen sich Maschi- 
nenprogramme mit hoher Geschwin- 
digkeit in die Assemblersprache über- 
setzen. Dieses Programm wurde auf 
einem Spectrum entwickelt, läßt sich 
aber mit kleinen Änderungen auf an- 
dere Computer mit Z80-Prozessoren 
übertragen. 


Das komplette Maschinenprogramm, das sämtliche 
Z80-Befehle übersetzt, belegt 3213 Bytes ab der Adresse 
25000. So haben Besitzer der 16-KByte-Version des Spec- 
trum noch gut 4500 Bytes Speicherkapazität zur Verfügung, 
um ab der Adresse 28213 zu übersetzende Maschinenpro- 
gramme ablegen zu können (von der übrigbleibenden Spei- 
cherkapazität der 48-KByte-Version ganz zu schweigen). Mit 
dem Programm lassen sich auch Listings von Maschinenpro- 
‚grammen erstellen, doch davon später. 

Die Anwendung des Programms ist denkbar einfach. Das zu- 
gehörige Basic-Programm (Listing 2), über »LOAD'""« geladen, 
setzt in Zeile 100 den RAMTOP auf 24999 und lädt danach 
das Maschinenprogramm. Es meldet sich schließlich nach 
Drücken einer Taste mit der Frage nach der Startadresse. Man 
gibt nun die Adresse des ersten Bytes des zu übersetzenden 
Maschinenprogramms ein. Danach verlangt das Programm 
noch die Eingabe der Adresse des letzten Bytes. In Zeile 40 
werden die Adressen 25002/3 und 25004/5 mit den einge- 
gebenen Werten geladen. Daraufhin erscheint das übersetzte 
Maschinenprogramm auf dem Bildschirm (die Geschwindig- 
keit der Übersetzungist vergleichbar mit »LIST«). Die linke Spal- 
te gibt jeweils die Adresse des Befehls an (dezimal). In der 2. 
‚Spalte befinden sich die Hexcodes der Bytes des Befehls (1-4 
Bytes; je nach Befehl). Die rechte Spalte zeigt die übersetzten 
Befehle, wobei alle Zahlen in dezimaler Form erscheinen. Rela- 
tive Sprünge werden automatisch in absolute Adressen umge- 
wandelt. 


Aufbau-Hilfe 


Das komplette Maschinenprogramm ist wie folgt aufgebaut: 
Die Adressen 25000-25037 enthalten Zwischenspeicher, 
die für den Programmablauf wichtig sind. In der Adresse 
25000 befindet sich nach der Untersuchung eines Befehls 
die Byteanzahl dieses Befehls. Die Adressen 25002/3 enthal- 
ten während des Programmablaufs die Adresse des jeweils zu 
übersetzenden Befehls, während der Inhalt von 25004/5 
nicht verändert wird, da er die Endadresse darstellt. Die 32 By- 
tes von 25006 bis 25037 entsprechen den ASCII-Codes der 
32 Zeichen, die nach der Übersetzung eines Befehls auf dem 
Bildschirm oder Drucker ausgegeben werden. 


Sonderheit Spectrum. 


Den größten Speicherplatz benötigt die Codierung sämtlicher 
Z80-Befehle, nämlich die 2434 folgenden Bytes von 25038 
bis 27471. Im wesentlichen sind die Befehle so codiert, daß 
die ASCII-Codes der einzelnen Zeichen der Z80-Befehle hin- 
tereinander im Speicher abgelegt sind. Das Byte für das letzte 
Zeichen eines Befehls wird um 128 erhöht. Dieses Setzen des 
7. Bits ermöglicht es dem Computer, dieses letzte Zeichen als 
solches zu erkennen. Außerdem kann er durch Abzählen der 
Bytes, die größer als 127 sind, die Adresse der Codierung ei- 
nes bestimmten Befehls anhand seines Befehlscodes ermit- 
teln, da die Codierungen nach Befehlscodes geordnet sind. 
Dazu ein Beispiel: »SCF« hat den Befehlscode 55. Der Com- 
puter zählt von 25039 beginnend nun 55 Bytes ab, beidenen 
das 7. Bit gesetzt ist, und kommt so zur Adresse 25279. 
25280 enthält das erste Zeichen des Befehls: S=83; C=67; 
F=70+ 128 (letztes Zeichen). Eigentlich beginnt der Compu- 
ter mit dem Zählen bei der Adresse 25038 und zählt dann 56 
Bytes ab. Das ist sinnvoll, damit er für den Befehl »NOP« nicht 
OBytesabzählen muß, was im Programm etwas umständlicher 
wäre. Auch die Befehle, die mit CB beziehungsweise ED be- 
innen, sind geordnet in einer Datei abgelegt und befinden 
Sich direkt hinter den übrigen Befehlen. Zeichenketten, die bei 
vielen Befehlen gleich vorkommen wie zum Beispiel »LD«, 
»INC« oder »(HL)«, werden in einer gesonderten Datei zu ei- 
nem Byte zusammengefaßt (zum Beispiel »LD«=92, 
»INCe=93, »(HL)«=91). Die Datei beginnt bei der Adresse 
27319, enthält insgesamt 32 Codes und ist ähnlich wie die 
Hauptdatei aufgebaut. Für die Hauptdatei gibt es noch einige 
wichtige Spezialcodes: 

0 : Befehl existiert nicht, zum Beispiel ED 3C 

2:CB 

3:ED 

4:DD 

5:FD 
63 : unmittelbare Daten werden erwartet (»N«) 

64 : relativer Sprung (Diskriminante wird erwartet) 

Von der Adresse 27455 bis 27471 befinden sich die Zei- 
chen des Kommentars »Befehl unmöglich«, der ausgegeben 
wird, wenn das Programm auf einen nicht existierenden Befehl 
stößt — zum Beispiel wenn das Programm in der Hauptdatei 
die Zahl O beziehungsweise 128 findet. 


741 Bytes reichen aus 


Und nun zum eigentlichen Maschinenprogramm (Listing 4), 
das nur 741 Bytes belegt und bei der Adresse 27472 be- 
ginnt. Hier beginnt die Hauptroutine, die die Disassemblierung 
aller Befehle steuert. Von (der Adresse) 27472 bis 27481 
werden die 32 Bytes ab 25006 initialisiert (mit Spaces gefüllt). 
Von 27482 bis 27486 wird 25000 initialisiert (Anzahl der By- 
tes pro Befehl = 1 gesetzt). 27487 bis 27498 steuert das Er- 
zeugen der Adresse des zu übersetzenden Befehls. Das Auf- 
suchen der Adresse der Codierung des jeweiligen Befehls 
wird von 27499 bis 27505 gesteuert. 27506 bis 27508 ruft 
eine Routine auf, die den Befehl im Hinblick auf unmittelbare 
Daten, Unmöglichkeit, CB, ED, DD, FD oder doppelte Codie- 
rung (zum Beispiel »LD«=92) untersucht, entsprechend ver- 
zweigt und erst zurückspringt, wenn der Befehl vollständig 
übersetzt worden ist oder festgestellt worden ist, daß der Be- 
fehl nicht existieren kann. In diesem Fall wird das Carry-Flag 
zurückgesetzt, sonst ist es beim Rücksprung gesetzt. Dieses 
Flag testet 27509 bis 27526 und erzeugt, wenn nötig, den 
Kommentar »Befehlunmöglich«. Die Routine für das Erzeugen 
der Hexcodes der zweiten Spalte (28020 bis 28062) wird 
von 27527 bis 27529 aufgerufen. Die Ausgabe der drei Spal- 
ten (Routine 28198 bis 28212) wird von 27530 bis 27532 
aufgerufen. 27533 bis 27545 setzt 25002/3 auf die Adresse 
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DI COMPUTER PERSÖNLICH 


Anwendungs-Listing 


a FÜR p=25634 TO ZE21E 


8 STEF 1 


35 FOKE 23658 
4@ INPUT "He> 
LEN hs< >26 THEN 
eingabe!Bi i 
SE 8: 60 TO 


IF »>9 THEH LET x 
IF s>9 THEN LET 
POKE F+n. 


LET e=c-FEER (p#n? 
HEXT n 
156 IF c THEN EEEF „5.4: PRINT 


"Falsche Einsabe; 
erneut eingeben! ": 
: GO TO 353 

16560 FRIHT AT 8.0: "Zeile "ip5" K 
orrekt eingegeben." 

17a HEXT P 
128 FRIHT 


Zeile t 
FAUSE 8: CLS 


"Fertis." 


Listing 1. BasicHilfsprogramm 


des nächsten Befehls, Die zuletzt gedrückte Taste (bezie- 
hungsweise die Adresse 23560) wird von 27546 bis 27551 
getestet. Wenn man die Spacetaste während des Programm- 
ablaufs drückt, stoppt das Programm sofort und startet neu— 
Eingabe von Start- und Endadresse und so weiter 27552 bis 
27563 testet, ob die Endadresse schon erreicht ist und ver- 
zweigt entweder nach 27472 oder kehrt zum Basic- 
Programm zurück. Die Routine ab 27578 sucht die Adressen 
der doppelt codierten Zeichenketten und lädt diese Ketten in 
den Speicherbereich von 25006 bis 25037, der später aus- 
gegeben wird. Nach 27699 wird verzweigt, wenn der unter- 
suchte Befehl ein IX- oder IY-Befehl ist. Dort wird er dann wei- 
ter untersucht. Von der Routine ab 27955 werden die Zei- 
‚chencodes für die indizierte Adressierung erzeugt (zum Bei- 
spiel »(IY-15)«) und in den Speicherbereich von 25006 bis 
25037 geladen. Die Routine ab 28063 steuert das Ersetzen 
von unmittelbaren Daten (»N« oder »NN«) durch Zahlen. Das 
Erzeugen von Dezimalzahlen geschieht durch die Routine von 
28108 bis 28197. 


Eingabe-Hinweise 


Der Ablauf bei der Eingabe des Programms empfiehlt sich 
wie folgt: Zunächst wird das Hilfsprogramm (Listing 1) für die 
Eingabe des Maschinenprogramms eingegeben und mit 
»RUN« gestartet. Nun muß man — möglichst sorgfältig — sämt- 
liche Hexcode-Zeichenketten von Listing 3 hintereinander 
eingeben. Dafür ein kleiner Tip: Wenn Sie eine Zeichenkette 
‚eingeben, so muß das letzte Zeichen dieser Kette am Zeilen- 


Sonderheft Spectrum: 


ende und der Cursor am Anfang der nächsten Zeile stehen. 
Natürlich prüft das Programm auch selbständig die Länge des 
eingegebenen Strings; sollte sie aber nicht 20 betragen, so 
müssen Sie den gesamten String neu eingeben. Hinter jeder 
Reihe fordert das Programm die Prüfsumme der Reihe; diese 
befindet sich wie üblich jeweils rechts vom Pfeil. Wenn das 
Maschinenprogramm vollständig eingegeben ist, kann man 
das Hilfsprogramm mit »NEW« löschen und das Basic- 
Programm (Listing 2) eingeben. Abgespeichert wird das kom- 
plette Programm über »RUN 9990«. Überprüfen kann man das 
eingegebene Programm, indem man es mit »RUN« startet und 
als Startadresse 27472, als Endadresse zum Beispiel 30000 
eingibt. Die ausgegebenen Daten kann man mit dem Listing 4 
vergleichen. 


1 REM 230-Disassembler von 
1 Schimice 

18 BÜRDER 1: FAPER 1: INK 7: C 
LS 

za IHPUT "Startadee 

36 INPUT "Endadr 

4a FÜ zsadz,s-INT 
6: PÜKE 25063, INT sr2569: "POKE 
25904,@-IHT © 255: FÜKE 25 
585, INT <er2! 

Se RANDOMIZE U ararz 

5 Go TO zu 

ale) t 2: PAPER &: INK 1: C 


118 PRINT AT S 
SH 1; "bISASSEM! 
LASH @:AT 19,05" 
chimice,Yelbert " 

128 FRINT AT 15,85: 


BRIGHT 22 
vers 3 
1234 bu Axel 5 


LORD " "CODE 


130 PRINT #8; "Zum Weitermachen 
Taste druecken 


FAUSE @: RUN 
9336 SAVE "Dis 


SAVE "ME/DATA" CODE 


Listing 2. Basic-Vorprogramm 


Um Listings von Maschinenprogrammen zu erstellen, gibt 
man »POKE 28199,3« ein (normal: PEEK 28199=2). Da- 
durch wird der Drucker- und nicht der Bildschirmkanal geöff- 
net. Die Anzahl der Zeichen pro Zeile muß bei den meisten 
Druckern auf 32 gesetzt werden. Man kann natürlich auch ei- 
ne eigene Ausgaberoutine anfertigen. 


Umarbeitung möglich 


Dies müssen auch Besitzer anderer Computertypen tun, da 
die Routinen 5633 und 8252 spectrumspezifische ROM- 
Routinen sind, die einen bestimmten Kanal öffnen bezie- 
hungsweise eine bestimmte Anzahl von Bytes (BC) ab einer 
bestimmten Adresse (DE) ausgeben. Außerdem müssen die 6 
Bytes von 27546 bis 27551 für andere Computer auch NOPs 
ersetzt werden, da die Adresse 23560 ebenfalls eine spec- 
trumspezifische Programmvariable darstellt, die den Code der 
zuletzt gedrückten Taste enthält. Das Umschreiben des Basic- 
Programms (Listing 2) dürfte nicht schwerfallen. 

(Axel Schimice) 
Das Ling 3. (ofencodes) und Lig 4. finden Si ab Sei 00 


Anwendungs-Listing 


zsasa © EEE RERS EEE 
2504: 4320: 
2sasa : 


: CS6ACCEADESACIEST 
: LIGSL45SCHESLHESLLEE 
: DESSCIEF4EDAST42CITE 
b BE En 


u 
: LESC42Z2ZCBFS24CHSCl 
4355204 Be 1465A741 


26 ca 
BEFSESSSIZBBSSFAE 
G74403704E432C3FBF 
F2ZE3F232CC1654E- a 


zs1os : Seczecdsecere 23243C1 
z5lld : 444A4ESAZOCASC44452C 


ZU1BSEFC ssebsruas 
: ECSFEFFIALECZEIFRIES 
: 43203FBF8482BF323354 
: 2US2B4SFSACFE743CC7 2a] 


acana Las 1C484C2L: FBF 
nr -HECHSCCSD4E 


5 . EFI2SSI4EH 
SB26FSECSTELB733@45 
FEF4SS32044492033 
SFBFSSEEBF 
SFERErE41 


SFEFSCE: 2S3F3F 292 
25278 : en 
2520 : 
BS2M : 
23300 : 
28316 : SE 
23320 : 
23330 : 
25348 : 4 Zi Z2C 
23359 : C19C432CC2IC432CL35C 
23360 : 432C045C432CCTIC4H32L 
25370 : C35L432CCCSC432CDBSE 
25380 : 432C71SC442CC250442C 
25390 : C35C442004504420655C 
25409 : 442CC8IC442CCLIC442C 
25416 : DBSC442CC1SC4S2CLESE 


FSDE7SC1?7 
FL37704770377 
gneree 17 Raser 

4UC?4 


25420 : 452CC350452C0450452C 
234328 [53C4I2CC8IC4T2CE 
25445 452CDB5C452CC1IC4 
23459 : 0250482C0350482CL45C 


25450 : 482CC5SC4SECLSSCHSEE 


25470 : CCSC4E2CDESCHSZCE 
25480 : AC2CC2SCIL2Ll3SE 


25430 : C45C4C2CC5IC4L2cL3g 
23500 : ‚4C2ECCCSCILEcDESCALZE 
25516 : CLSCIB2CCESCIBECCSSE 
23328 : SB2CCASCIBECLSSCHBEC 
25520 : CSSCHB2CCC43414CD4SE 
25549 : SB2CC1SC412CT2SCHET 

23359 : C3ICHL2CCIICHECLSSE > 


25560 : 412CCBSCA12CCCSCAL2C -> 315 | 26218 : 
23970 : DBSCHLZLCISFOZSFCISF -> 1287 
25999 : CASFESSFLSSFCCSFOBSF -> 143 
23599 : C168C26 5, 
zsead 


26220 : 


L3540454L554L854CC54 > 

DES4L1EZTZEZL3EEC 
: CISZLSS2CLCE2EDBE52L153 > 
: L259IC3EICHEICTEILHES > 
: EISSDBESEISBCZSECHEB -> 
: D4SBCSEBLSSECCEEDBEB -> 
: CLEACZEALSSACHSACSER -> 1595 Listing 3. »Hexcode« 


Sonktarnaifznerenan 


x CC6037, 7 SCOBELSFZELIED > 


C4603B2CLC5SD3BZLLSED 
: SBZCCGSDSBECDBSDIGEL 
: CIEDFLECCZEDF12CCZER 
: S12C045D312CCSEDS12C 
: CBEDSLZCCCSDI12CDBED 
: S12CC1ED3220C28D3225 
: DISDF22CC4EDF22CCTED 
: SE2CCBEDIZZCELSDIZZC 
: DBEDSZECLIEDISZÜCZEH 
: 39320036033206460332C 
: CIE0332CCEED332CCLED 
: 332C0B50332CLC1803420 
: CEEDSIECLSEDI4ECCHEN 
: 342CCIED342CCSED342G 
: CCEDI42CDESDI4ECC LED 
: 3520626D352CL360352C 
: L4603I2CHIEB3T2CLSEh 


SIZCTISESLZCISEESLET 
ISES12CDBSESLZCCISE 
Bee BEESZZCCHGESZEC 


ESZZCDESESZZT 
LEBESSZECHEE 
SI2CCSSE* 

Den 


SisEsszccase 
S2ZCLASESSET 
ecee 


# € ÜCIGESEZECAGE =2 1111 
Sesc SEESSZCCSEESEET -> 311 
S2ECDBSESSZELIEE -> 1142 


LOGITER 


präsentiert AYLOR 

PROCEED 1 

Floppy- und Drucker. IIC® 

intortace für den ZX-Spectrum 

- Intelligente, sehr leistungstähige 
Druckerschnitstale 

- für ale © 64-kompatiblen Floppy- 
Laufwerke 

= Befehle sofort verfügbar 


‚Spezialist 
für Heim- 
‚computer und 
Peripherie aller 
‚Art beweist seine 


ink Leistungsfähigkeit: 
Druckerkabol NUR 198,- DM 
80-K-RAM-Modul ri ” 
- mit Softswitch absolute Niedrigstpreise 
— Einbau wird auf Wunsch über- auf Anfrage 

nommen (20. DI 


STELCZEESTZCCSBESTZE -> 706 
5 SS2LCCSDSSECbBEDIS2E : LASESFELCSEEITZCCHSEE -> 1121 
EDIS2ZLLZEDISZLLSEn -> a: STECCLSEITZEDBBESTZT -> 348 
= 3620 5 ? Sescsasasasgsasasa -> 1345 
: KSSDISECEEsb3s2zchBshb > SUSGSaSBSHSuSH3u5080 ->7 1250 
: 382CC180372CCZEb372C -> : SO2OSDSBSHSHSASASUSa -> 1258 
: C3650372CC48D372C05E0 -> : SOSGSEAASBEBSHSESHEE -> 1288 
: SPECCSEDITZCCCED37ZE -> : BESUSGBASESASUSESHER -> 1258 
DEEDIFZLLISESBELLZEE -> Sesasasasasgsasägase -> 1280 
SW2CLSSE3B2CC4SE3B2C 7 : SOSGSAS43u7142202343 -> 370 
ESBESGECCSSEIRZCCLEE —> : A9722843292002634203 -> 1029 
; SHECDBSEIBZCLIEESLEC 7 : SCESSFSFZI2C42C34E45 -> 751 
: C2GE31ECCISEI12CC4EE -> Bere => 1098 
Damen) 
BRANDHEISSE KNÜLLERPREISE 


Commodore, 
Commodore 84, VE. 1541 


Foröpatter 1820 
Foren 


Außerdem: At, Apple, TIOD/4 A 
IA Fri rk Must, zz. Versandistenpauschie (Naranyer 3,OM 1000. 
rüber) Ve (DM 8,.720.-), Naehnatme (DM 11,2023,2( 
TM 18130) Untrung hr augen Voruskesse üer mess 
Ausland nur Vorauskasse, Gesamiproiiete gegen Frenumschlag, 


CSV RIEGERT 


Schloßhofstr. 5,7324 Rechberghausen, Tal (07161) 5: 


z.B. 


GP50S 289, 
GP 500 AS 499; 


HIGH-SPEED 2016 


= für den © 64 In Verbindung mit 
der IB 
= ermöglicht totach schnelleres 
Uhden von Programmen 
NUR 49,- DM 


158polige 
Fenstersteckerleiste 
= zum Selbstanferligen von Bus- 


Auszug aus unserem Angebst ür SPECTRUM 


Unbedingt aktuoloProsiste antordem! 


HICHREL - NAUJOKS  oszetlasess 


steckern (ür 2X 81, Spectrum, 
Schneider usw. 


NUR 7,95 DM 


Versand gegen Nachnahme 
Händierantragen erwünscht 
Andreas Höft u. Frank Lesser GbR 
Pankstraße 49, 1000 Berlin 65 
Tel (030) 4628052 


ZX-Spectrum 


Reparatur-Schnelldienst 
Computer & Medientechnik, Heinz Meyer, 


Rahserstr. 52, 4060 Viersen 1, Telefon 02162/22964 
Rufen Sie uns an! 


SOFTWARE SPECTRÜN HARDWARE 


Anwendungs-listing 


: 4320617 1432C28434972 
: 28432920036142035042 
: 4320233F3FA980524554 
a C3S95C522CC171442C28 
43997223432920048344 
: CSSCZEIFIF2ZI2C44C5H 
: 86494D24615641200371 
: 4320284343722343292C 
: 6561440550444 920283F 
28456494020B235C41 
1482C2343497228 
CCIE34ECCITZE3F 

: SFZIEC4SLCSGIGSETEIZ 
C4714C2C284349722343 

: 22200661: CIC4S4C2C 
283F3FA98E3088524CC4 
: 7146202843A980635300 
SCZESFSF2I205IDHSR8H 

E An 41202843A97228 


= SC SSSrSFnSS BEE 
: BOSUSOSUSESESBSEUSE 
: BOSOEHSCHESESHSHSESE 
: BOSBEASGSABHSASASasH 
: 504044634350C9494EC9 
: 4FSSI4C9IB03H39894C44 
: 644350C4434EC44F5354 
: 04503030304044490243 
: Sa4962494E43D24F 5443 
: D2898086384C4444D243 
: SG4402494E44D24F5444 
: D2E503056863030803358 


: BOSUSOSAIASHEASAHERSE 
ErZ7O : 80805095503E89593354 
27Zen : BUSOSBSHSESHSASABHSH 
27295 : SUSBSRSHBBSESRSERRE 
27300 : 80305030303030592054 
27310 : SESESGSOEHEHSASATRTR 
27320 : 25484CR34C44AG494E43 
27336 : Ad4445437164144442041 
2734M : AC4144432041AC414443 
27350 : 26484CAC9I342432041AC 
27360 : 93424320484CAl533I42 
27370 : AB43414C4CA050555348 
27380 : AOSO4FSAAG43SEAD4L4E 
27328 : 44AB4FS2ABSS4FS2AB42 
z74a0 : 49S4A6I245TSAAII45I4 
zrala : AAS24SS4AGIASEAGIS4E 
z7a20 : AO4FSSSAABSZSTIAARSZ 
27438 : 4CABS24C43ABS2I2ARSZ 
27442 : S243R0334C41A0535241 
27450 : A653S24CH04265665568 
27468 : 6L20736ESDSFESE7ECEH 
27476 : 63ESZIAES10629787723 
27420 : 1ÖFCIEB1FZASEIDDZIAE 
27430 : SIZARRSIESCDELEDEI4E 
27506 : B4BEAICDACSBCDD7SBSS 
2751a : 1BZ1SFEBTECBEFED7?RS 
27526 : CB7EZIDDZ3ZSF3CD74ED 
27530 : CDZESEZAAASIEDABASEL 
27548 : BEGBAFZZAREISARSSCHE 
27559 : ZECSZAAASLEDSBACSIED 
27560 : S23SASCIHZICESICH7EZ3 
27570 : Z8FBLGFSODZAFECILESA 
27588 : ESZ1E7EACB7EZIZEFBIN 


> 
= 


: ZUFS7EES?FDD77&8DL23 
: CB7EZS2SF3E1CIDD21BD 
: SITEESFFESFESESSOSCH 
: BAGB1S44FEBESAL4FEB4 
: 3O43ZAAAE123460421AS 
: 61344FCDACEB1SDBFESF 
: ZOASCDIFSD1S23FE4R2E 
: 1AIEBZI2ZA3612AARE123 
: FEZICB?F2801258SEFIE 
: G@124CDLCED1S85007708 
: DD2SCB7ES?LBZI1EABZA 
: AAGLZIESTEZIRSEIS4EL 
: FEDDCSFEEDCSFEFDESFE 
: CEZBSC2I2I7EFESEZSZE 
: ESAFFERE2U284694BEH2 
: CDACSBFECBBFFESBZEIG 
: SSHECDEARSEZS1SFIDE?? 
: BODD232318EICDI3SD21 
A861366437C921A38134 
‚4AFCSFEEBLS47O4BERL 
CDACSBFECBBFFESB2O3B 
: ESZAAASLZ3FEEIFEEIZE 
: GBESCD3SEDZIASE1I4EI 
: 18SADDIEBB23DC350143 
; DD369258DL3893292BCE 
300346237C93595 
: ERSELSSSFESFZBRSCH 
: SF6D1S3HFE4820272371 
EBFZBFE4CSEISZBICDD 
A4I3CD3E91IIETZAAA 
FEDD23630D3481DD 
: 230D23E1231395DD7798 
DDZ3CE7E2903231882U6 
16bb21EDS1DD7EHAFE43 
: ZOGEDD7EAIFESSZSGEFE 
: SIZSGADb231GERDDZ1ED 
S1AFC337C9HDD3SH928DD 
81490D3602S8DD23bD 
SDDZS2AAAG1FEFEDBZS 
: GSDD34FFZ323CB7EDDIE 
: AE2D2604DD36982EL0L23 
: FECBFEZSBZEDA42EBHEF 
CDECSDOD3S49220023C3 
: DEZ1B4E12AAASLSAASSL 
47r7EOFAFOFOFCDSFED7E 
CDSFEDZS1AFICHESAFES 
: SOFESA3S02C6G7DD7798 
: DEZ3SCIESZARASITARBEL 
: 233D29FCSE2ISEZ1ABEL 
: 3434E1237ECBBFFESFZE 
: SARZBESZIAS8135169018 
: BIESEBCDCCSDEICIEBTA 
: FERGZS1421HFZ7EDSZ3O 
B3ER182121E7O3EDS23H 
: 83EB1810216300E05235 
: ASEB181321099GED5238 
: G3EB1S1SEBIS1S11FODS 
CDISSEL11SFCCDISSEI1 
: SCFFEDISSELIFSFFCDIS 
* SELLFFFF3EZFSCIISSFE 
: EDS2D077990D23CI3EBZ 
: CDOL1E11AES1H1ZBHECD 
: SCEOCSHRHATEHARTRHR 


Listing 3. »Hexcode« (Schluß) 
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27638 3043 
Pe 


LO HL,2S@06 
LD 8,32 

iD RB 

1 CHLd,A 
Inc HL 

DaNZ 27478 
Lo At 

LD c25808>,A 
LD 1x, 25806 
Lo HL,czse82> 


BEGASSSBSEE 
SRENREILEBE 


a» 
go 
N 
3 


LO HL,2S038 


Por HL 


Earae 
= ar 


ID c2segB),A 


ee u 


zrerı 


23 


INC HL ZPBas 205 IR C,ZTESS ZEC4B COBFED CALL zeadr 
Bit 7A Zrese CDense CHLL ZUE7E  Ze04a 23 INC HL 
uR 2,2767 2resa 1830 JR zrS12 25644 terı DUNZ zu031 
Dee 4 wesrer (Ps z8046 13 RET 
DO AL Z7esT 2005 IR NZ,ZTBSa  ZeBa? Eser AND 15 
[Kara 27839 COSFeD ALL 2U068  ZE0i9 C60 ADD A.48 
IR Ne,zrese  Zresz Ise IR ZeSI2 zus rem cr 8 
Inch zrasa Fee CP 72 20053 02 JR C,2u007 
SALL 28108 27866 zu” IR NZ.2TIOr Zeess eur ADD R,? 
JR 27532 race 23 inc HL 28657 Do7708 LD <IK-Od.R 
ID (ixeu,a  Zress re LO A.cHL > Zue&0 0023 ING Ix 
Inc I: zrere cer RES Zeez c5 KeT 
BIT Z.CHL) zrar2 26 Dec 22063 &5 PUSH HL, 
SCR grera Feac CR 22054 ZRAASı LD HL.C25882> 
RET NZ Zrers z 1 22067 arması LD A,(z0888) 
Inc HL zrer? Zeic_ R zeere 23 INC HL 
SR 27611 Zre7s DO360849 LO zeeri 0 Dec A 
Lo HL,czso02) 27883 DDSE158 LD ze072 zerc JR NZı280ra 
Inc HL Zreer €5 Push z8074 5E ID E.CHL» 
PUSH HL Dress zmnnsı LO z8873 23 Inc HL 
LD A,CHL> Z78s1 TE [73 23076 5 ID D.CHL» 
ID HL,2soge Zres2 FED cp 28977 ziRssı LD HL,2seee 
IND CHL> zTasa zu0s IR Z,eress Zu088 34 INC CH.» 
For HL 27896 Dosaoı INC CIRHLD  Zue01 34 INC CHL) 
ce 221 27859 0023 INC IX zeee2 Ei FOR HL 
BETZ 27881 022 Inc ıx Zeus 23 Inc HL 
cr 297 27383 Eı FOR HL zees4 TE LD_AsCHL> 
RET_Z 27904 23 INC_HL ZeR85 CBBF RES _?, 
ce 253 Zrges 1805 JR zrS12 zer Fer CP 63 
RerZ 27987 Dorzee LDCIN-B),A 2ue89 zen IR 2,2B181 
cr 203 27910 0023 INC IX zeası 28 DEC HL 
Rizerres Zr912CBrE BIT7CHM> 2e0s2 Es PUSH HL, 
Inc HL z7S14 2088 AR NZ,ZTSIS 2easa zınasi LO HL,2sene 
INC HL. ersie 23 INC HL 28096 35 DEC_CHL> 
ID AuchL> 27817 1082 JR 27733 z8897 100 LO De 
2) 27919 0618 {D 8,16, 28899 1801 JR Ze162 
IR Z,27776 27921 DDZIEDSL LD IX,25021 Zeiel Es Flsh Hu 
A? 27925 DDTEGE LDA.CIKHO)  ZeieR EB Ex DESHL 
ces 27928 FE4S ars = 28189 CDcceD CALL 28108 
Rz, ZU ze IR NZ,EIMS Daigs Ei FOR HL 
iD 8.ch > 27982 boreeı ID Acımtl) 281? co Rer 
Inc Zr 8 Zeıen EB Ex DESHL 
1D 32 A7aaT Zee IR Z,2r00 Sa1o9 7a ID md 
SALL 27564 Zar 8 wi Ze res 0R6 
LO A,CHL> zrgal zen IR Z,27033 zeilz zeig JR 2,28134 
RES 7A z73a3 Des INC IK Zeııa Zier2? LO HL9999 
ae 27245 1GEn _ Duhz arses Zeil? EDS? SEC HL,DE 
RR 2,2766 27947 DDeiepeı LD 18,20821 28119 3083 JR NC,28124 
IR C,27758 27351 RE FRA 28121 EB EX DE.HL 
CALL 27378 27382 c9 BET 28122 1821 JR 28157 
INC HL 273% BER 28124 2IE?083 LD HL,999 
IR 2rras 2740 RET 28127 Eos2 SEC HL,DE 
ID CIm@sın 27305 DDSSBBZB LO (IX+B),40 Ze129 es JR NC,2Bi34 
Inc IK 27993 00360149 LD (IX+1),79 28131 EB ER DEAL 
INC HL 27963 00360258 LD (IR+2),88 zeige 1810 JR 28168 
Ur 27788 Zr967 0023 ING IR ze134 zu6seo LD HL, 
GALL 27355 27369 023 INC IK zeı37 E32 SAC HL,DE 
LD HL, 25000 gear DDzs Inc. IK 28139 3083 JR NE. 28144 
ID <HL»,4 27973 znmREı LD-ML,C2SBB2> 2141 EB EX DE,HL 
SCH 27376 7E ID Asch» z8192 1019 JR zui69 
RET zrar7 FEDO 1 28144 218908 LD HL,3 
LD HL,2seee 27978 2083 JR 2,27064 zeia? Eos2 SBC HL,DE 
INC CHL> EUBE DOMEET IR EIN 28149 3083 JR NC,28154 
INC CHL> 27 3 INC HL zeisi EB EX DE,HL 
KR A Zn ING u. zeıs2 1815 IR 28175 
BET 27286 CBrE BIT TH)  Ze154 EB den 
P 235 27988 DOSSaBeD LD «1443,49  Seıs5 1818 JR ZBI8I 
RET 2 z7e92 zu0a KR N2,2798 28157 lırens LD DE,SSSSE 
BR 27934 DDSS002B LD (1X+02.48 2E16L CDIBSE CRALL 2BI4 
Inc 8 27398 0023 Inc 1x 22163 {11BFC LD DE,6ASSS 
10 11 zuge TE a Z166 CDIBSE CALL 28184 
CALL 27564 zeeel CBrE BIT PC) 28169 LISCFF LD DE,EIASE 
LO R,CHD 20003 2002 AR 2,2007” 28172 CDIBSE CALL ZeI84 
RES 7,R ee 28175 L1F6FF LD DE,6SS26 
si Zee 28178 CDIBSE CALL 28184 
Amlarzras | EBBMS SE O2 LIE) Ze181 LIFFFF LD DE,6535 
FÜsH HL zea1g CoCcSD CALL zei Zeiss er LDA.A7 
Th Ceseoz) 23913 DDSSB023 LD CIKOM.aL Seine sc IR 
INC HL Ze De > 2 za187 19 PD MED 
r 2 zii 
ae Besee Dozıgssı LD ın,23012 ZU108 es SEC HLIDE 
cp 235 zuges zmamsı LD HC25682) Zeise porree LD <IN+Bd,A 
JR 2,2782 ZU027 anmBe1 LD MCESOOB) Zain DDzs INC IK 
Push HL Pu DER 28197 c3 RET 
ee zeası 7E U AschL> Bee RZ 
ID HL, 2S000 zues2 dr Bacn 28206 cells CALL 5633 
INC CHL> aaa BE u zeze3 I1RE6ı LD DE,2SEB6 
POP_HL. 2034 Or er 28286 o1ze0a LD BC,32 
R zrsı2 Er Ga 8er 
ID IKs8»,08 28896 Coer: ze0 zezız c9 T 
ID eıKe1),73 28839 7E LUD A.CHL> 
ID (IN2),88 
LD dIK3),41 
Dec HL 
BIT O,CHL) Listing 4. »Dissassembler-Listing« 
RR 2,27846 
Inc CIXe2> 
SCH 
Ber 


ee an 


Anwendungs-listing 


3D-Grafik 


Es gibt gute 3D-Grafikprogramme, die 
sind aber meist sehr lang. Dieses hier 
macht einige Kompromisse in der Be- 
dienung, ist dafür aber extrem kurz. 


Das folgende Programm besticht durch seine Kürze und Ein- 
fachheit undistdadurchleichteinzutippen. Essstellterstaunlich 
dreidimensionale Grafiken dar. Verdeckte Linien werden er- 
kannt und weggelassen, das heißt, daß Flächen oder Linien, 
die man bei einem undurchsichtigem Körper nicht sehen wür- 
de, auch nicht geplottet werden. 

Prinzipiellkann man zwar jede Funktion verwenden, ich habe 
mich aber auf vier recht interessante Kurven beschränkt. Wie 
man das Programm beliebig erweitern kann, erkläre ich später. 
Wie entsteht eine Grafik? 

Ein beliebiger Abschnitt der zu plottenden Funktion wird um 
eine Achse gedreht, die am linken Ende des Grafen parallel zur 
Ordinate steht. Von oben gesehen gibt diese Drehung eine 
kreisförmige Fläche. 

Würde man dieses Gebilde in der Mitte durchschneiden und 
'von der Seite aus betrachten, so sähe man den Funktionsaus- 
schnitt in doppelter Ausführung — links die Spiegelung und 
rechts das Original. (siehe Skizze!) 

Mein Programm berechnet eine Draufsicht von vorne auf die 
‚sich ergebende Rotationsfigur. 

Wie benutze ich das Programm? 

Nachdem Sie das Listing eingetippt haben, starten Sie es 
durch »RUN«. 

Jetzt können Sie die Form der gewünschten Grafik wählen. 
Dabei stehen Ihnen, wie schon erwähnt, vier Grundversionen 
zur Verfügung. Nun geben Sie den Verzerrungsfaktor ein, der 
zwischen O und 3 liegen muß. Null bedeutet gerade Draufsicht 
von vorne. Je größer dieser Faktor ist, desto seitlicher sehen 
‚Sie auf die Fläche 

Tja — und jetzt brauchen Sie nur noch etwas Geduld. Die 
Prozedur dauert nämlich oft über eine halbe Stunde, was nicht 
an den benötigten Berechnungen liegt, sondern an Ihrem 
‚Spectrum, der sich für die hunderte zu plottenden Pixel reich- 
lich Zeit läßt. 

Dafür werden Sie aber am Ende durch faszinierende Ansich- 
ten belohnt, die natürlich mit »COPY« auf Ihrem Drucker ver- 
ewigt werden können. 

Falls Ihnen das Programm nach den ersten Minuten doch zu 
langsam erscheint, so können Sie es beschleunigen, indem 
Sie in der Zeile 190 die Schrittweite erhöhen: 
zum Beispiel 190 FOR x=—x0 TO x0 STEP 4*10 

Durch die jetzt erreichte Geschwindigkeit werden die Kur- 
ven gröber, da Zwischenwerte von Geraden verbunden wer- 
den und damit viele Berechnungen erspart bleiben. 

Mathematisch begabten Tüftlern wird es leicht fallen, die 
Zeilen 340—370 für andere Funktionen ihrer Wahl abzuän- 
dern. 

Das Grundprinzip ist Folgendes: 

340 LET yy=»Funktion f(xa)«e * Z 

Den Faktor Z am Ende der Zeile müssen Sie experimentell 
bestimmen. 

Falls Sie das Bild durchsichtig, also mit verdeckte Linien 
wünschen, so löschen Sie die Zeile 150. 

Probieren Sie ruhig einmal ein paar Veränderungen, es wird 
bestimmt Spaß machen. 


(Martin Hilpert) 


Hardcopy (Menü) 


SCREEN$ 2, Zerrfaktor 0 


PER ER 


ı2 REH 
BRURREHUHUIRHENERBURUNENR 


53 
® ® 
# *SD-Graphic” g 
#8 © by Martin W. Hilpert & 
® Ko BEE Bene “8 
® 5639 Coburg 8 
8 (rei ,ausor/anlreı ® 
= % 
# 8 


BESPERLELEEITEREESEE EFT 


2,29 BEER 2,80: BORDER 7: PAPER 
®_PLOT 50,55: DRAW 188,108,21 
99; BEEP 1,46 
4@ DIM Z(858) : LET xx=: 
190 PRINT ÖVER LAT Bl; "0-0 
rapı 
11@ LET as="Gib_den Typ der Gra 
r i : INPUT 


= 


Ras typ: Ir Lupo OR typ>a THEN 
Fi 3 yp< Öl yp> 
88 t02io 


129 LET a$="Gib den Verzerrungs 
nun u 2 1,2,3 BENER Sr 


= REM Anzahl der Kurven: 

158 FOR z=-17 TO +17 

168 LET %8=438-(z+21+1.3#AB5 z 
170 LET zz=z#l11: LET xxexx+ve 


175 
188 REM Anzahl der Punkte: 
Sea 


FOR _ x=-x8 TO x®d STEP 4+1 
308 50 SUB Ana SCREENS 4, Zerrfaktor 0 
218 NEXT x; 
a Mach eo NER", ER BEEP .B01,i 
ı di: 1 


a 
380 REM Berechnung des { 
Argumentes: N 
! 


385: 
310 LET xa=SüOR (xxx +5#27#27) 7/25 


315: 
320 REM Berechnung des 
Er Funktionswertes 


338° G0_TO 339+t4| 
BE ERRSSEI SEN Kaasıse: GO T 


o 
9288 LET Be (xa/3.5+.4) #40+8 
£ LET Yu4=Sd-INT (xa/3) #18: G0 
378 LET yy=45S-iLN ixas2) -xa7/20) 


* 
380 REM Berechnung der 
Keordınaten: 


385: 

398 LET x1=INT Ix/d) +127+xx-20* 
ve 

482 LET y1=INT iyy+zz/4)+sß 


405: 
418 REM Abfrage der verdeckten 
Linie 


415: 
42a IF yi<=z ix1) THEN GO. TO 488 
Fe REM Plotten der Funktion: 


a PLOT x1,31 
LET zixli=y1 


iss. 
468 REM Liegen die Punkte nicht 

direkt nebeneinander 

-} ziehe Linie; 
455: 
478 IF xa>x AND x>-x8 THEN DRAW 
Br aup en 

Let X2=xl: LET y2=u1 

Pe 


soo Ren ENDE 


Basic-Listing »3D-Grafik« Funktions-Skizze 
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Platinen-CAD 


Mit diesem Programm für den 48- 
KByte-Spectrum ist es möglich, elek- 
tronische Schaltungen zu konstruie- 


ren. 


Das Programm arbeitet mit zwei Grafikseiten, das heißt es 
lassen sich zwei Bildschirme mit Schaltungen besetzen. 

Eswirdeine automatische Bauteilliste geführt: Zeichnetman 
ein Bauteil, so wird es automatisch numeriert und sein Wert 
wird mittels INPUT abgefragt. Einzelne Bauteilwerte oderauch 
eine ganze Liste lassen sich später löschen. 

Eine Hardcopy der Grafikseite auf einem Drucker ist mög- 
lich. Entsprechende Routinen enthält das Programm. Selbst- 
verständlich kann man einen »SCREEN« auch auf Kassette 
aufnehmen. 

Zwischen den beiden Bildschirmen läßt sich beliebig um- 
schalten. Das geschieht mittels Druck auf eine bestimmte Ta- 
ste, dazu später noch mehr. Hier sei nur soviel gesagt: Es wird 
zum Umschalten eine Assembler-Routine verwendet, welche 
außerordentlich schnell arbeitet. Auch die Bauteillisten lassen 
sich ausdrucken oder auf Band speichern beziehungsweise 
Laden. 

Übrigens: Zu dem Programm darf nichts mehr hinzugefügt 
werden, daesden ganzen Speicherplatz (48 KByte) einnimmt. 

Die Steuerung der einzelnen Funktionen des Programms ist 
sehr einfach. Jede Taste wurde mit einem Bauteil oder einer 
Funktion belegt. Man bestätigt also nur den entsprechenden 
Buchstaben und die Unterroutine wird angewählt. Damit dies 
schnell genug funktioniert, wurde eine spezielle Programmier- 
technik angewendet. 

Bei elektronischen Bauteilen braucht man nur die Buchsta- 
bentaste zu betätigen, die dem Anfangsbuchstaben des Na- 
mens des jeweiligen Teils entspricht. Maßgebend sind hier die 
deutschen Namen. 

Für Widerstand tippt man »W«, für Transistor sT«, für einen 


Kondensator »K« und so weiter. 
Folgende Funktionen lassen sich ausführen: 
Taste Wirkung 
w Widerstand 
7: Transistor 
K Kondensator 
D Diode 
s Spule 
B Batterie 
G Glühlampe 
P Potentiometer 
E Erdung 
U Übertrager 
L Lautsprecher 
M Mikrofon 


Die obigen Tasten führen also allesamt Bauteile. Weitere Funk- 
tionen sind: 

Lötverbindung 

Löschen 

gesamten Bildschirm löschen 

Eine Bauteiliste löschen 

Ein Einzelteil aus einer best. Liste 
löschen 

Saven bzw. Laden der Bauteillisten 
Bildschirm-Hardcopy 

‚Ausdruck der Bauteilisten. 

Saven bzw. Laden des Bildschirms 
Umschalten der beiden Bildschirme 

Als Cursor dient ein PLOT-Punkt (Pixel), der sich in einem 


ER za 


OOINN I<<>o 


blinkendem Printfeld befindet. Bewegt wird dieser Punkt mit 
den Tasten 5-8. Mit der Taste »0« wird ein Pixel gesetzt, und 
dieses ist dann der Anfangspunkt einer zu zeichnenden Linie. 

‚Also, um eine Linie zu zeichnen betätigt man die Taste »O« 
an der gewünschten Bildschirmstelle. Die Bildschirmumran- 
dung ist dann rot. Nun fährt man mit dem Cursor zu dem ge- 
wünschten Endpunkt der Linie und betätigt nochmals die Ta- 
ste »O«. Die Bildschirmumrandung ist dann grün. Man muß also 
immer Anfangs- und Endpunkt der Linie lediglich mit »0« mar- 
kieren; das Zeichnen der Linie übernimmt der Computer sel- 
ber. 


Noch etwas zum Cursor. Betätigtman die Tasten 5-8 zusätz- 
lich zusammen mit SHIFT, so läßt sich der Cursor um jeweils 
eine PLOT Position verschieben. Somitistalso ein genaues Ar- 
beiten gewährleistet. 

Nun etwas zum eigentlichen Zeichnen der elektronischen 
Bauteile: Man bewegt den Cursor an die gewünschte Stelle ir- 
gendwo auf dem Bildschirm und betätigt dann eine beliebige. 
Bauteiltaste, zum Beispiel W«. Nun fragt das Programm unten 
am Bildschirm die Richtung ab, in die das Bauteil gezeichnet 
werden soll. Die möglichen Richtungen bei allen Bauteilen 
sind: Norden, Süden, Westen und Osten. Diese vier Richtun- 
gen werden wieder mit den Cursortasten 5-8 bestimmt. 
Möchte man zum Beispiel ein Bauteil in Richtung Westen (im- 
mer relativ zum Cursor) gezeichnet haben, so betätigt man Ta- 
ste »5« und so weiter. Die Bedienung ist somit einfach gehal- 
ten. 

Hat man einmal das falsche Unterprogramm angewählt, so 
kann man es durch betätigen der Taste »O« wieder mühelos 
verlassen. Dies gilt in gleichem Maße für alle Funktionen, au- 
Ber für die, die andere Antworten, wie ja oder nein verlangen. 

Istdas Bauteil gezeichnet, so muß noch sein Wert für die au- 
tomatische Liste eingegeben werden. Dies trifft jedoch nur für 
Widerstände, Transistoren, Dioden, Kondensatoren, Potentio- 
meter und Spulen zu. Bei allen anderen Bauteilen muß kein 
Wert eingetippt werden. Obengenannte Bauteile haben je- 
weils eine eigene Bauteiliste für sich alleine. Alle anderen Bau- 
teile (wie Batterie, Lautsprecher, Mikrofon, Erdung und so wei- 
ter) haben eine gemeinsame Liste. Widerstände, Transistoren, 
Dioden, Kondensatoren und Spulen werden automatisch mit 
fortlaufenden Ziffern numeriert. Insgesamt lassen sich 240 
Bauteile speichern. Pro Bauteilgruppe 40 Stück. Ist.diese Zahl 
erreicht, sollte man sich die Bauteilliste ausdrucken lassen, um 


Die zur Verfügung 
stehenden Schalt- 
zeichen des Pro- 
gramms 
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Schaltung ; 
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Anwendungs-Listing 


weitermachen zu können, ohne Bauteile zu löschen. Im allge- 
meinen wird man aber nicht soviele Bauteile benötigen. Noch 
‚etwas ist dazu zu sagen: Bei der Eingabe der Werte können 
insgesamt 8 beliebige Zeichen eingetippt werden. Außer dem 
reinen Zahlenwert lassen sich also auch noch andere Kurzin- 
formationen eingeben. Bei der Liste, die die diversen Bauteile 
(Batterie, Lautsprecher, Erdung usw.) führt, wird derName des 
verwendeten Bauteils automatisch gespeichert. 

Zur Verdeutlichung der hier gemachten schriftlichen Erläu- 
terungen, sollte man auch die beigelegten Hardcopys heran- 
ziehen, die mit dem Programm angefertigt wurden. Übrigens 
wurden sie auf einem Seikosha GP-50 S erstellt, der sich hier- 
für bestens eignet. 

Für die auf der Hardcopy wiedergegebene Schaltung wur- 
den etwa 5 Minuten benötigt, um sie aufzubauen. Die Bedie- 
nung des Programm ist wirklich einfach. Um es noch einmal 
deutlich zu sagen: 

Für ein bestimmtes Bauteil, tippt man den Anfangsbuchsta- 
ben des Namens des Bauteils an, also: »We« für Widerstand, 
»B« für Batterie zum Beispiel. 

Und jetzt erfolgen detaillierte Erklärungen der einzelnen 
Möglichkeiten und Funktionen des Programms. Man kann die- 
se Liste neben den Computer legen, wenn man mit diesem 
Programm arbeitet. 

Taste »W« 

’Zeichnet in vier Himmelsrichtungen einen Widerstand. Auto- 
matische Numerierung und Listenführung. Wert muß einge- 
tippt werden. 

Taste »T« 

Zeichnet in vier Himmelsrichtungen einen Transistor. Es kann 
zwischen PNP oder NPN gewählt werden. Automatische Nu- 
merierung und Listenführung. Bezeichnung (zum Beispiel BC 
238) muß eingetippt werden. 

Taste »K« 

Zeichnet in vier Himmelsrichtungen einen Kondensator. Es 
kann zwischen einem ungepolten und einem gepolten gewählt 
werden (geplot=Elko). Automatische Numerierung und Li- 
stenführung. Wert muße eingetippt werden. 

Taste »D« 

Zeichnet in vier Himmelsrichtungen eine DIODE. Es kann zwi- 
‚schen normaler Diode und Zenerdiode gewählt werden. Auto- 
matische Listenführung und Numerierung. Wert muß einge- 
tippt werden. 

Taste »S« 

Zeichnet in vier Himmelsrichtungen eine Spule. Automatische 
Numerierung und Listenführung. Wert muß eingetippt werden. 
Taste »P« 

Zeichnet in vier Himmelsrichtungen ein Potentiometer. Auto- 
matische Listenführung. Wert muß eingetippt werden (Zähit zu 
‚den Widerständen; Unterscheidung macht man am besten 
durch Zusatz von P). 

Taste »B« 

Zeichnet in vier Himmelsrichtungen eine Batterie. Automati- 
sche Listenführung. 

Taste »G« 

Zeichnet in vier Himmelsrichtungen Glühlampe. Automati- 
sche Listenführung. 

Taste »E« 

Zeichnet in vier Himmelsrichtungen das Erdungssymbol. Au- 
tomatische Listenführung. 

Taste »U« e 

Zeichnet in vier Himmelsrichtungen einen Übertrager (Trans- 
formator). Automatische Listenführung. 

Taste »L« 

'Zeichnet in vier Himmelsrichtungen einen Lautsprecher. Au- 
tomatische Listenführung. 

Taste »M« 

Zeichnet in vier Himmelsrichtungen ein Mikrofon. Automati- 
sche Listenführung. 


a ee aaa dal 


Taste »O« (O wie in Vogel!) 

Zeichnet an der momentanen Position eine Lötverbindung. 
Taste »A« 

Es wird der Bereich gelöscht, der blinkt (eine Printposition). 
Muß man ausprobieren. 

Die oben aufgezeigten Funktionen haben alle etwas mit dem 
Editieren einer Schaltung zu tun. Gemeinsam haben alle oben- 
genannten Funktionen, daß sie immer von der momentanen 
Position des Cursors (PLOT-Punkt, blinkend) ausgehen. 


Weitere Funktionen 


Taste »V« 

Bildschirm löschen 

Man kann den (momentan sichtbaren) Bildschirm löschen. 
Tippt man diese Taste wird aber nicht sofort gelöscht, sondern 
erst noch einmal gegengefragt. 

Taste »Y« 

Mit dieser Funktion kann man eine Bauteilliste löschen. Ge- 
löscht wird vollständig und erst nach ausdrücklichem Wunsch. 
‚Auch hier kann man mit Taste »O« vereinen, jedoch nur, bevor 
man den Buchstaben des Namens der Liste noch nicht einge- 
tippt hat (RT,DCL, oder E). 

Taste »H« 

Hiermit kann man ein spezielles Bauteil aus einer bestimmten 
Liste löschen. Man gibt zuerst die Nummer des Bauteils ein 
und dann die Bauteilart. 

Taste »F« 

Mit dieser Funktion kann man die Bauteillisten Laden oder auf 
Band sichern. Man verwendet am besten eine spezielle Kas- 
sette, In der Funktion »SAVE« wird ein VERIFY-Durchgang ge- 
macht. Dafür muß das Band wieder zurückgespult werden. 
Tritt ein Tape Loading Error auf, so gibt man GOTO 4000 ein 
und wiederholt den SAVE-Vorgang. GOTO 4000 kann immer 
angewendet werden, wenn man aus irgendeinem Grund aus 
dem Programm gekommen ist. Daten gehen hierbei nicht ver- 
loren. 

Das SAVE der Bauteillisten kann sehr vorteilhaft sein, wenn 
man die Konstruierung des Schaltplans zu einem späteren 
Zeitpunkt fortsetzen möchte, zum Beispiel am anderen Tag. 
Dazu sichert man beide Grafikseiten auf Band (siehe Taste 
»Q«) und die Bauteilliste. Später lädt man dann zuerst das 
Hauptprogramm und dann die Bauteillisten und die beiden 
Bildschirme. 

Mit der Taste »F« wird die Bauteilliste auch geladen. 

Taste »Z« 

Hiermit kann man eine Hardcopy des momentan sichtbaren 
Bildes auf dem angeschlossenen Drucker ausgeben lassen. 
Möchte man beide Bildschirme ausdrucken lassen, so läßt 
man erstmal den einen ausdrucken, schaltet dann auf den 
zweiten um (siehe Taste »C«) und läßt den ebenfalls wieder mit 
Hilfe der Taste »Z« ausdrucken. Als Drucker eignen sich der 
kleine Sinclair, der Alphacom und der Seikosha GP-50 sowie 
der GP-100 gut. Vorrang gebe ich jedoch den beiden 
Seikosha-Druckern, da sie im allgemeinen ein deutlicheres 
Druckbild abgeben, das sich auch mühelos kopieren läßt! 
Taste »R« 

Hiermit lassen sich die Bauteillisten ausdrucken. 

Taste »Q« 

Mit dieser Funktion läßt sich der momentane Bildschirm ab- 
speichern, beziehungsweise ein SCREEN von Band laden. 
Taste »C« 

Diese Funktion ist sehr wichtig. Sie gestattet eszwischen zwei 
Grafikseiten blitzschnell umzuschalten. Jeweils eine Grafiksei- 
te ist auf dem Bildschirm zu sehen, und die andere ist über 
RAMTOP gespeichert und ist somit auch vor NEW geschützt. 
Jedesmal wenn man die Taste »C« tippt, wird zwischen den 
beiden Grafikseiten umgeschaltet, das heißt sie werden aus- 
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getauscht: Die eine wird gespeichert, die andere wird auf den 
Bildschirm geholt. 

Dazu wird eine ausgeklügelte Maschinencoderoutine ver- 
wendet, die diesen Austausch schnell und sicher gewährlei- 
stet. Die Routine ist 33 Byte lang und ist ebenfalls über RAM- 
TOP gespeichert. 

Noch.einmal etwas allgemeines, füralle Funktionen gültiges: 
Hat man aus Versehen eine nicht gewünschte Routine ange- 
wählt, so kann man diese durch die Taste »0« (Null!) wieder 
verlassen. Hat man das Programm einmal ausprobiert, merkt 
man erst, wie leicht die Bedienung ist. Am besten, man macht 
sich eine Stichwortliste mit den wichtigsten Funktionen, die 
man sich neben den Computer legt. 

Daich das Programm entwickelt habe, um selber elektroni- 
sche Layouts aufzubauen, gebe ich hier noch einige nützliche 
Tips zum Aufbauen einer Schaltung. 

‚Am besten ist, man fängt mit den Transistoren an, denn sie 
bestimmen die Dimensionen der gesamten Schaltung. Dann 
sollte man Dioden, Widerstände und andere Bauteile einfü- 


gen. 

Die Verdrahtung und Lötstellen (Taste »O«) kann man zuletzt 
machen oder fortlaufend an die gezeichneten Teile ansetzen. 
Ich schlage vor, zuletzt zu verdrahten. 

Man kann auch größere Schaltungen zeichnen, als solche 
über zwei Bildschirme, indem man jeweils einen Bildschirm 
zeichnet, diesen dann ausdruckt, den Bildschirm löscht und 
weiter macht. 

Um esnnoch einmal in Erinnerung zu rufen. Insgesamt lassen 
sich 240 Bauteile speichern, das dürfte selbst für größere 
Schaltpläne reichen. Und auch wenn die Bauteillisten voll sind, 
kann man ja die Werte auch »zu Fuß« aufschreiben. 

Löscht man ein bereits gezeichnetes Bauteil, so sollte man 
auch dessen Wert aus seiner Liste löschen. Dazu wählt man 
mit Taste »H« die Funktion Einzelteil löschen. Man gibt zuerst 
die Nummer des Bauteils ein, die es auf dem Bildschirm hatte, 
und dann die Bauteilart, also zum Beispiel R/T,C,D,LoderE. »E« 
steht für diverse Bauelemente wie Mikrofon, Erdungssymbol, 
Übertrager und so weiter. 


Alle Einzelbuchstaben (außer N) werden für die einzelnen 
Unterprogramme gebraucht. Sie enthalten Zeilennum- 
mern. 


x horizontale Komponente der Position des 
Cursors 

w vertikale Komponente der Position des 
Cursors 

rs() List mit Zählvariable m der Widerstände 

m 

c$ Liste mit Zählvariable cc der Kondensato- 
ren 

cc 

d$() Liste mit Zählvariable dd der Dioden 

dd 

t$() Liste mit Zählvariable tt der Transistoren 

tt 

IS() Liste mit Zählvariable II der Spulen 

u 

e$() Liste mit Zählvariable ee der diversen Bau- 

ee teile 

x) werden gebraucht für Verbindungslinien 

yo 

horiz enthalten wieder bestimmte Zeilennum- 
mern; stehen am Anfang eines Unterpro- 
grammes. 

Richtung =9800, ist eine Zeilennummer eines Un- 
terprogramms Wichtige Variablen 


‚Sollte man, aus welchem Grund auch immer, einmalaus dem 
Programmablauf gelangen (zum Beispiel bei Tape Loading Er- 


AQ za 


ror!), so gibt man »GOTO 4000 ein. Daten gehen hierbeinicht 
verloren, falls man dies sofort ausführt ohne zwischendurch 
eine andere Taste zu betätigen. 

Die Variablenliste ist im allgemeinen nicht so wichtig für das 
Verständnis des Programms. Die wichtigsten Variablen sind xx 
und yy. Sie repräsentieren die momentane Position des Cur- 
‚sors. (M. Malik) 


Die meisten REM-Zeilen mußten aus Speicherplatzgrün- 
den weggelassen werden. An den entsprechenden Stellen 
befinden sich lediglich Doppelpunkte (), damit das Pro- 
‚gramm nicht zu unübersichtlich wird, 

Der Programmaufbau ist im großen und ganzen einfach. 
Es gibt einen Hauptteil und Unterprogramme. 
1000-3000 Variablendefinition. Dies ist ein sehr wich- 
tiger Teil. Es ist beim Eintippen darauf zu 
achten, daß die Zahlen richtig eingetippt 
werden, sonst funktioniert das Programm 
nicht optimal. 

Dieser Programmteil steuert den Cursor 
und die Unterprogramme. 

Dieser Teil ist verantwortlich für das Zie- 
hen der Verbindungslinien. 

‚Ab hier folgen nur noch Unterprogramme 
für die einzelnen Bauteile und Funkionen. 
Ab 9800 befindet sich ebenfalls noch ein 
sehr wichtiges Unterprogramm, das die 
Richtung abfragt und an die einzelnen 
Unterprogramme zum Zeichnen der Bau- 
teile weitergibt. Programmaufbau 


4000-4200 
4200-5000 
ab 5000 


9800 


REM 
PLATINEN-CAD 
EIN PROGRAMM VON 


MARKUS _MALIK 
SCHLESISCHER WEG 4 
4775 LIPPETAL 


FUER ZX-SPECTRUM 48-K 
UND DRUCKER 


© MALIK SOFTWARE 
JANUAR 1985 


REH SaarSHerIeeeee 


EM 
ÖLER Basic 
GO_SUB 8308 »Platinen-CAD« 


LET Eis 

POKE 23380 ,192: POKE 273801, 
L=7258 
M 


LET LET 
LET 


ii 
= 


an 


mi 
Ik} 


Banana 
Oi {2 


6 

8 

=132: LET YY=92 
235588 ,1: POKE 238538,8 
CHTUNG=9808 

= 
Ä 
Ä 
Ä 
{ 
Ä 
c 
& 


VRKENUN PRNDERPPRPFPPEHPNPRRER 
0999900 FFUrTTFrTrrrr 


A ee 


se 
smr4onn <D 


Sonderhefl Spectrum. 


Anwendungs-Listing 


3221: 5198 PLOT "XgaBı,vrse: DRAU 9us; 
1888 LET Aszınkeys Bee 219 BE RUIS  E e 
Pr 
4953 IF a$="" THEN GO TO 4088 S183 LET HarsTas, AR; LET XRARKE 
dasa IF nes.a" THEN PLOT _OVER 2; BBSL LET YayaYy te: IF VY=iss THE 
INK 8; PAPER 8; XX,VY: URN Yyy 
4885 Fin asy=\a" and Aac="z" ann Jısa 66'508 Sıaos1asual Mell): L 
Syn" x" = THEN 
un 8.5507 SorER 8, INK S, OvE ee: nee 
fl L 
zo BLET BaßeR 8; INK 8; Over ı Si er. «eat. : Einer \an 
koso LET KReikr(cone A =9) „(Cop KEN VAR-aRHL ir 
E A$=8)) +88 ((As="S") 5318 RETURN 
4999 LET YYaYY+t{coDE „ass 3S90 
DE Der) HH INSEN Aszıe")) 5308: 
4105 IF XX>248 THEN LET XX=R48: SIID LET BE="KONDENSATOR" 
gu 104188 s328 LET H Adarz=a370 
dia? Ir X%«@ THEN LET xX=0: 60T SaB8 LET lenızeseze 
4119 IF YY>168 THEN LET YY=iss: Bene 
so 10 4159 5338 IF xX)@32 AND AAc>-1 THEN 6 
4115 Ir YY<Q® THEN LET YY=d 379 Sasd 
ee, Se 8, INK 8; OVER 1 5392 IF XX«18 AND ARc>l THEN GO 
; To 3 
i198"6 Tb-a600 S3g5.3r vyca or vyrıos THEN 00 T 
2 gi 
4180: 400 ELOT SKY: DRAULARNG, & 
4388 Ren LINTEN 3:98 ELOT AXınnaso0ten. ® 
4210 Dim Xi2) 5418 FLOT ERBEn. DR Au 
4220 DIN Yi®) Sals PLOT XK+AB* -3; DRAU 8,6 
dass Eon 3438 PLor wLARFIOL Va. DRRU 6, 
& 
4245 PLOT _xX, XAAAz11,YY: DRAW AR#S 
4359 LET xin) 3: PLOT XX+AR#11 
4279 LET Yin) S426 L LET BB2=7: LET 8 
4288 IF INKE er 1 BR LET BE1=-11 
8 ET 882=-9: LET 5 
4290 BORDER & Sa37 PLOT aX4BS2, was ÖRAU -2,0 
4398 NEXT N GRAU 8,3: 
4339 PLOT Sim ıyiz) Sass NBB2° Ler vrvayr+ 
43 14 DRAW XL) -X (a) ,Yid) -Yim) S, LET HSSSTRS CC; GO SUB sıa0+1 
4338 BORDER & SsuRr Metı) 
4340 60 TO 4230 5329 LET XXX=Xk+B63. IF LEN M$=2 
San: ‚ SIHEN SO SUB S100+10 «URL MS ca) 
Sans LET BE SUEES Tann". LEF Rıcaar 
Y>ı159 AAkı- 
Saıs LET VearTr=sase 5°E 3508 BRELOANET ARE 
5022 50 TO RICHTUNG 5470 = YY«16 AND ARc>1 THEN 60 
5050 IF YY,isS AND ARC>-1 THEN G To_aaSı 
0 _T2 3999 s475 ar, 2x8 TEN SO TO 9998 
SaS0_IF YY<18 AND AAC>1 THEN GO 5ı88 DRAU_d,ARsS 
0 9999 5435 ELorT 2 ® YY+AR+S: DRAW 56,8 
3985 IF XXg@ THEN GO TO 9998 IT. 8X-8 88 
5078 PLOT xX, DRI DRaU 5.0 
Bis PLOT XX+B,YY+RAsS: "RAU o,R 5588 PLOT AK-S1VVHARSIO DRAU 6, 
SE BEBH 4,2: DRAU @,-AR+10 sgaı PLOT XX,YY+RA#11: DRAU 3,AR 
sasa PLör XX,YY+AR=13: DRAW @,AR $Soa LET 8B1=7: LET zeBer: ver 8 
Sası LET =4: BB2=8: LET 8 er Bes BET Berner 
ss=ig; TeaXR7sao THE CET nB1-2 3sa3 p PA DRAW - 
Ri ee 2,8: Di 
SQs3 RLOT XXHBBLLYYHRRFS: DRAN 2 5804 yYYeYY4+ 
;.DREN 2,8) RAW Ö,-1: DRAW -1 ARRS: Satas ec: "60 SUB 818 
8993 LET MSSSTRS_ RR: LET XXX=XX+ = 
60 ber FRE ka nn As als 5528 IF _CC>9 TH DH XXX=XX+BB3 
+10* nt 7 
SEES BEL ERSTEN KET ET" Bea 
er Ks 
2353: So 208, THEN 60 TO 85 
ee IF xX«16 BER ARt>I THEN GO er IF INKEY$="8" THEN 60 TO 67 
99 
sis? 1E yoase AND AR<Y-1 THEN G S5S0 IF INKEYE="8" THEN 60 TO 58 
5135 IF YY«2 THEN 50 TO_9999 5552 GO _ TO 5548 
Er N SICHTUNG NIT BÜRSaR In 
Li KA+AR# + 
10,2 SISo Ir RLen=I THEN od Ta ssse 
189 DRAN Q, 74: DRAU -ARs20,0 508 IF INKEYa'" TEN GO TO Ss 
sase PLOT KXHARS13,YY: DRAW AR&3 SS1@ IE INKEYS="S" THEN LET BB=1 
$181 LET_BB1=3:; LET 889=7: LET 5820 IF INKEY4="S" THEN LET BB=- 
B3=i1’ IE Rd=-i THEN LET Befslıs 1:_60_TO 5648 
: LET B82=-9: LET BB3=-5 5830 co TO 5618 


ae BAAPF 
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5548 _PLOT XX+AAs8+B546,YY+2: DRA 
Ss4s PLOT XX+AR#8+BB*6-1,YY+3: D 


5280 <0 TO 5728 
ge IF INKEY$C>"" THEN GO TO S6 


So72 8 ea THEN LET BB=- 
es BE ee THEN LET BB=1 


were or ME vsRRsBHBB36: DRA 
5705 PLOT XX+3,YY+AR#B+BBA6-1: D 


Au 2,8 
5720 INPUT "WERT: "; LINE eaicH 
5250 LET ScaccHt: IF Ci=s1 


LET 
Be RETURN 


HEN 


{ 
Sara IL XX«1S AND AR«>2 THEN 60 
gezs ar YY«3 OR YY>156 THEN 60 T 
8289 BLOT XX.Yw: „DRBW ARz1S.D, 


5385 PLOT ar +5 -3: 
3358 DRRU AAIST BI PLär Kiannsss 


5395 DRAU ARsS,2 
5308 FLUT XX+ARsB,Y 
5205 PLOT KKHARsT Y 
5318 PLOT XX+AR x 


5 ,Y. 
ı 


5920 PLOT XX+AAs A,yv= 
S922 eg E10; "ZENERDIODE 

N so To 59 
5924 IF INKEY$="8" THEN GO TO 59 
5935 IF INKEY$="S" THEN 60 TO 69 


go _TO 5924 
5927 PLOT XX+AAs11,YY-3: DRAW -A 


B#2,8 
5929 LET 5B1=3: LET BB2=7: LET B 
En a en ee ber nsses BBl=-15 


Ei LET_YYYayy+ 
LEr aueree 50: 60 sus Slad+l 


HEN BET ERXERX BROS 
3 SUB Sidarlosuke Mm$(2 

5959 GO TC 8950 

so ı IF YY»159 AND ARc>-1 THEN G 


0 99 
59358 IF YY<18 AND AA<>1 THEN GO 
TI 33930 
EEE TUen.| so TO 9998 
RKıYY Bu 


LOT ” 0, AA 
PLör XX-3, #5: AU 5,8 
DRAU -2,AR8s" Mer Ei -3,YY+ 
DRAU 


2,AR#S 
PLOT XX-3,YY+RAR#11: DRAU 5, 


BLOT SEE PYaansS: BERUTA,E 
LOT 1,YY+Aı 2% DeEu En 


ie PzENERDIOSE 

u ee, HEN 60 TO 58 
If INKEY$="8" THEN 50 TO 58 
IF INKEY$="S" THEN 60 TO 50 
so TO 6850 


5) 
P 


S245 PLOT XX-3,YY+ARz#11: DRAU O8, 


ARs2 
sass LET 5B1=5: LET BB2=3: LET 
63=153. IF _XX>240 Mn LET, „s8T--1 
: LET 682=-11: 
047 BLOR RE avanses, apa ı 
8: SgRAU 1.2: Rau 9,1, DRAU <ı, 
DR 9: BA -3, 
d45 ver RN: very 
A* LET M$=STR$ DD: GO SE wit 
+18#UAL M${1) 
849 IF DD>9 THEN LET an XX+BB3 
GO SUB S108+10xVAL M$i 
858 INPUT "WERT: ",; LINE D$(DD) 
BeErzEn Do=Do+1: IF boss. THEN 
078 RETURN 
108: 
102: 
en LET er = 
Per} ver VERT ER 
140 50 TO RICHTUNG 
168 IF YY«5_ THEN 60 TO 
3 ern AND ARc>- ? en (3 
= us XX«16 AND ARc>ı THEN GO 


9390 
@ PLOT XX,YY:_ DRAW AR#S, B 
5 PLOT XXtARis,YV+2: DRAW Ah* 


ELOT DAgu_Anss.B 
BET RR 


DRAW 8,-4: DRAW -AA#19,0 

Bier KAHARELS,YY: DRAW ARKS 
S PLOT XX+AR#15,YY-8: DRAW -A 
2] Ban -AR,-1: PLOT xX+AR#5,Y 


AR+ 


5 Es — 

Fi 8 To 
5 3 Wise AND ARc>-1 THEN G 
Keen YY«16 AND AAc<>1l THEN GO 
267 Sr nn EN, = Ma: 9399 
278 2,AA+3 
BR Svennes- DRAW 8,R 
* 
—_ DRAW 2, -AA#10 


4,0 
350 PLOT XX,YY+AAs13: DRAW B,RR 
6235 PLOT XX-8,YY+AR#15: DRAW 13 
SAALE 
8298 DRAN -1,-AR: PLOT XX+6,YY+R 


(17 
A#5: DRAW 2,AA# 
6295 INPUT "WERT: "; LINE R&$(RRI 
5296 LET RR=RR+1: IF RR=41 THEN 
Le RR=1 


237 RETURN 
ET B$="ERDUNG" 


59 TO RICHT! 
‘4 THEN Neo TO_3998 
«7 AND ARC>1 THEN GO T 


Ss 
5348 PLOT XX,YY:_ PLOT XX+AA,YY 
8342 PLOT XX+HAAx2,YY+s: DRAU 8,- 


= 
5345 PLOT XX+ARx4,YY+3: DRAW Dd,- 
53598 PLOT XX+AAs6,YY+2: DRAU 8,- 


8355 De To 6332 
F YY<? AND AA<>1 THEN 60 T 


836 

0_933 & 

6357 IF _xX<4 THEN G0_TO 9998 
6378 PLOT XX,YY; PLOT _XX,YY+AR 
Er PLOT XX+4,YY+ARs2: DRAU 8, 
8375 PLOT XX+3,YV+AAz4: DRAW -5, 
t] 
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gasa PLOT KX+2,YYV+ARSS: DRAU -4, 


6352 LET ES$IEE)=6$ 
ai = EE=EE+1: IF EE=41 THEN 


EE 
n RETURN 


"LET B en nnertn 
LET HÖRIZ=54 
VeRTzzgene 


5 as aa" And AR<H-1 THEN G 
x = Rx cs THEN IF ARc>1 THEN 


5 Ir YY>152 en so TO 3998 
8 PLOT XX,YY: PLOT SE NO: 
ag AR+S,0: DRAW 8,16: DRAW -AR 


Size panu gu728; ,gRgu -AR,a: Dora 
8428 PLOT OKahals 2YY; _DRAU -AR= 
5,0: DRAN ‚OR RAU AR,O 

5427 DRAU 81238, „grau AA,D: DRAN 
9,16: DRA 

s230 co 70. aaa. 

Ss WISS THEN IF ARo-ı TH 


EN oO 

58437 IF YYc1l6 THEN IF ARc>1 THEN 
so TO 9 

68433 IF XX>232 THEN 60 TO 9938 
5440 RLOT XX,YY: FLUT XX,YY+AR: 
DRAN 8,AR#5: DRAW 15,0: DRAW Dd,- 


AR 
Yas, DRAW -15,0: en d,-AR: DRA 
RA! = Ai 


18.0: Rau B.HAse 
8450 LET ES (EE) =B$ 
5aSS LET EE=EEHL: IF EE=41 THEN 


5450; 

SasE: 

5455 LET B N 

5439 = Hi ae 

6495 VERTI: 328 

5458 Sr To RIEHTU ING 

= = *XX«15 AND Arnc>i THEN GO 
8595 IF XX>252 AND AR<>-1 THEN G 
Q_TO 998 

5507 IF YY>2168 OR YY<S THEN GO T 
0_9398 

8518 CIRCLE 


a! > 
S BET REIT DRAU Ahzs,o 
Eu PLOT Brkanı Karel RAU a,- 


Sses ee er YY+l: DRAW AR, 
8558 Raor INH SsAR, YY-1: DRAW AR+ 


55_PRINT #0; ir, 
I-TRAN.? Ü 
BE IF IN Pal en so TO 65 
6545 IF INKEY$="S" THEN PLOT XX+ 
8,YY-4: DRAW AR#3,0: DRAW 8,5 
"Bes axggnssıyY 3: "DARu AR,AR: 


8559 IF INKEY$="8" THEN PLOT XX+ 


Pu} 
Fül 


AR=2S,YY-2: DRAU 8,-3: DRAU Anss, 
3: DRRu zanıs.d: eo To esse 
$551 60 _T0 6 

8553 LET B81=3: LET 852-5: LET 8 
63=12: Se AB<>1 THEN Ber BBi1=-11 
& Ba=-8: LET BB 

5 DRAU 8,5: 
BRAUN -1 U 2,8 

8554 LET XXXSXK+BBA: LET YYY=YY+ 
9. LET M$=STR$ TT: GO SUB 8100+1 
OzUAL MS(l) 

6555 IF TT>9 THEN LET Bar XX+BB3 
is59 aus sigerlörxual ns 

8559 CD T. 

5565 IF W 353°, AND AR<>-1 THEN G 


9_T9 9338 

sera IF YY«16 AND ARc>1 THEN G0 

. Baar RREE OR NAIRSB THEN GET, 

dses SEROLE KR, ENT ERERRG 7. 

8550 PLOT ‚DR 

5558 PLOT E Y+7 Sehne -5, 

Ssag BLar. wen ‚YY+S+AR: DRAW @,R 

5535 PLOTXX-1,YY+5sAR: DRAW 7, 
a2 PRINT 88; AT J ODER 
I-TRAN.? ({ ans: 

& IF INK 5 EN 50 TO 56 


6618 IE Nas zB" ze PLOT ADS 
sy +AR#B: W AR+3: DRAW Q 
: _ BLOT XX-3, bus Fin DRAU AR, Aa? 
0_TO_ 8617 

35 IF IN 
YY+AR#9: DI 


Tori 


x LET yyYYy 
INES; EST MSESTRE 6 


Q+1D4UAL_M 
6520 IP_TLS THEN LET XRXSXX+B59 
SO Sup Si9@rlöruAL nsle 


5055, INPUT "WERT {TYP 37 "LINE iz 
N TT=TT+1: IF TT=41 THEN 
En RETURN 


832 

E35, en AT 21-INT (YY78) ,INT 
X7 

SS RETURN 


88 
5578: 

6872: 

6675 LET B$="SPULE" 

5858 LET HORIZ-5798 

8535 SET JERTISETAS 

8699 GO TO RICHTUN 

8988 IE ANDI AND RAo-ı THEN & 
0_T0 3998 

5705 IF XX<16 AND ARc1 THEN GO 
TO 9950 

5718 PLOT XX,Yr BRAUN AR+2 

5715 DRRU AA$2,2: DRAW ARKd,-2 
5738 DREN nasS.2: DRRU AnsSı-a 


8731 LET Bst! LET BB2=7: LET 
53=11 er u. PTHEN ee Ssislıd 


LET LET 
Be eLor Risen wei: Drau -2,8 
? xx +BB2: LET YYYaYy+ 
4 -iyY 5): fu Ra LL: 605 
nn Sa3ae lo ya M&(1) 

ır 9 THEN LET RRATRR BES 
3 Us B18n }LOxuRL Ms 
2,9168 AND ARc>-1 THEN G 
835 YY<16 AND AR<>1 THEN GO 


5 PLOT DRAU D,AR+2 


DRAU & Kakle: BERN "2,AA+2 
DRAU 2,ARs2: DRAU -2,AAs2 
DRaU 2,AA=2: DaRU -2,AA#2 


DRAW B,AAx2 
ET 8ei=7: LET BB2=9: LET 8 
een THEN us] BBi=-1 


ET BB3=-4 
PLOT AKSDBISTYERREST DRAU - 


DRAN 8,5 

LET XXX=XX+BB2: LET YYY=YY+ 
LET NESTRE LI: G0.SUR 830 

uAL MSL 

SPOLUSSTTHEN LET XXX=XX4B83 


lan 771 
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za SB B1Bn+laxVUAL M = 


5788 INPUT "UERT LINE L$ ILL) 
8785 LET LL=LL+1: IF Li=41 THEN 
LET LL=1 

8739 RETURN 

8508 

ssa2 

8518 LET B BATTERIE" 

6322 LET HÜRIZ=6555 

6353@ LET_VERTI=692 

8548 50 TO RICHTUNG 

5355 IF XX<16 AND Arc>ı1 THEN GO 
TO_9990 

5359 2 KX)232 AND AAc>-1 THEN 6 
o_T0 92 

5363 Ir YY«S5 Mae co TO_ 9998 
5365 PLOT XX,YY RAN AR+S5,® 
go70 PLOT KX+ARIS, Ws DRAU 8,- 
6375 DRAU ‚0: DRAU 8,6 


288% FLOT RAS" YY+5: DRAU 8,- 
6985 PLOT XX+AA#190,YY: DRAU Ars 


8580 PLOT XX+AR+2,YY+B: DRAU AR 
S2s5 PLOT XX+AAS11,YY+3: DRAN AR 
32, 

5300 PLOT KX+ARHLB,YY +4: DRAU 2, 
5918 GO TO 5975 

SSRS ZEYY>1S2 AND AAc-1 THEN G 
SSOQ IE YY<1S AND ARcı THEN Go 
8933 IF _XX<5 THEN GO TO 9998 
59335 PLOT XX,YY; DRAW 8,AR#S 
9340 PLOT XX43,YY+RRxS: 'DRAU -6, 


89345 DRAU 2,AR: 
6958 PLOT EN TRRr DRAW -18 


[3 
8955 PLOT XX,YY+AR#10d: DRAU 3,AR 


+6 

EIg® PLOT XX+2,YY+ARzR: DRAW B,R 
8363 PLOT XX+3,YY+ARs1L: DRAW ®, 
SI7B PLOT XX+4,YYHARzI2: DRAU -2 
8975 LET ES IEE) =55 

6380 LET EE=EE+1: IF EE=41 THEN 
LET EE=1 

335 RETURN 


"LET Bas 
LET AöRrzer 


8 38 ,06282 NED en THEN 6 
IF XXs15 AND ARcC>1 THEN GO 
3923 IF YY<4 THEN = Die 9999 
288 PLOT WKAnhsLeY-2° Danu -R 
star XX+AA#6,YY-2: DRAW AR+ 
EM PLOT XX+ARF12,YY: DRAW AR#4 
3235 se RXHARKS,YY,4 

zı28 IF YY»152 AND AR<>-1 THEN 6 
7138 6 vr cas AND AR<>1 THEN GO 


Bas 4, 

28teLor XR-2,YY+AR#6: DRAW 4,R 

@ PLOT XX,YY+RAs12: DRAW @,AR 
EN „YY+AR+S,a 


5 
a LET E 
S LET E£lEeH Ir EE=41 THEN 


EE=1 
a RETURN 


7285 IF YY<l OR XX«1 THEN GD TO 


2998 
7210 CIRCLE XX,YY,1.4 

2320 RETURN 

7250; 

7351: 

7255 LET B$="LAUTSPRECHER" 

7289 LET HORIZ=7280 

2365 LET_VERTI=7340 

7279 50 TO RICHTUNG 

gESSgar XRS AND Ancı THEN so T 
7298 IF X%«2 THEN B0_TO_9990 
232g Ar NK21SQ THE CO TO 998 
7308 aXzaRgeyYea: DRaU 8,0 
308 oRau AazSr0- Drau 0.3 
7328 DRaU Ans, 8: DRAU 8,7 
7325 DRAU -AA+2,-2: DRAW Ö,-; 

7338 DAR) -AA+S.B: PLOT RX.YV 
2335 DRAU 8,2: PLOT AX,YY#S 
7338 DRAU 

2335 c0 Ti 


© 759 
3335 Te Yes ann AR<>1 THEN 60 T 


98 
350 IF YY<@2 THEN 50_TO_9998 
2352 En xxX>242 THEN GO TO Sl 
2355 PLOT XX+2,YY-i BEER 3,8 
7358 ons 3,5+A DRAU 


? -8 Be 
237% DRAW -2,-1 32 
8,- Lane 'PLör May 
2,0: PLOT XX4+5,YY 
DRAU_3, 
2398 LET = =B$ 
7 LET EESEE+1: IF EE=41 THEN 


5 
Ei 
488 RETURN 


2415 LET B$="MIKROFON" 

2428 LET HÜORIZ=7435 

2425 LET_VERTI=7450 

a s0 TO RICHTUNG 

a IF XxX<16 AND Arc>i1 THEN GO 


$a30 
=: IF_xXX»24@ AND Ari>-1 THEN 6 


{e] 

Be IF YY»>150 OR YY<1 THEN GO T 
7458 TIRCLE gr4aRsl1,YY+4,4: PLO 
E ee -r 

DRi Eu Nie: BLOT_XX,YY+1 
3388 DR e; 1: DRAW AR+?,® 
2465 BLer x, YY+?: DRAU 0,-2 
7478 DRAU AA87,® 


RETURN 
asssas YYels AND ARs>1 THEN GO 
en IF_YY>168 AND AAc>-1 THEN G 
Ks IF XX<1 OR XX>248 THEN GO T 
ae kr, Se YY+AA#l1l,4: PLO 
= -1,YY+AR+1: 
DRI SeLor RKX+l,YY 


DRAU_3,AR%7 
w: DRAU -2,0 


IF EE=41 THEN 


3595, RETURN Basie-Listing »Patinen-CAD« 
2892: a) 
7578 REM BILD LOESCH. 


SETRRTINT, EBLAT DB" WOLLEN ST 
5 GANZE 


a 5 INKEYS<H"" THEN co To 76 
Bar IF ET THEN 50 SUB 9 
FE E: INKEY$="J" OR INKEY$=" 5" 
580" ır FO InKeVg= Ne OR INKEYS="n" 


Anwendungs-Listing 


THEN 60 En 9338: GO TO 9598 
3 so To 52 


rd 
77880 REM ls LOESCH 
27218 PRINT #0, "WELCHE LIS 
TE BEN sie yöllz ee L 
OESCHEN T,C,D,L. 

ı5 IF INKEr ke DE HEN so TO 77 


NKE Y$ 
HEN_50 TO_7728 
Ze IF fi N ze THEN 60 TO 772 


739 IF z$ ITHEN_LET DI 
Magcaı,s TO_7765 

7738 ıF'z& THEN_LET DI 
nisdz-S 10_?765 

7748 IF Z$ HEN LET or 
M_D$c41,8) TO_7765 

7745 Ir zZ HEN_LET pr 
MC$(E1,8) 10_7768 

ars ae 28 THEN LET DI 
M (41,8): TO_7765 

U756 IF Zes0er TMEN L DI 
ME$(A1,18): G0_TO 7765 

775? IF Z%="8" THEN PLOT OVER 1, 
KRYY: 60 ;Ö 

789 So TO 77 

4388 ERıNT Eder 0,07 

SELSESEHT -TASTE DRUECKI 

Er pause 

a PLOT oVer 1,XX,YY: 50 TO 98 
2771: 


2772: 

7788 REM nn LOESCH,. 

EcH INPUT "NUMMER DES BRUTEILS 
IH „ar NU<1 OR NuS48 THEN co 

7288 ERaNT »o; Br ® Ds BAUTEIL 

72 >58 "je° INKEYSCH"" THEN so TO 77 


38 
2795 LET Z$S=INKEY$ 
ei IF LEN Z$<>1 THEN 60 TO 779 


2898 IF 24=\B" THEN so Tg maze 
THEN RS IND) =" 


THEN LET T${NU) = 
THEN LET DS {N = 
THEN LET CH (NW) =" 
345 TEN LET L${NU) = 
="E" THEN LET E£CNU 


Oo 38 
7848 PRINT gear 2, Nu; IST 
S LOESCHT-TRSTE BADLENEN "SAT 


5" PAUSE 8: FLOT OVER 1,X%,YY 
Tu 9539 


47: 
7358 REM LISTEN er 
7355 PRINT #0,AT "WOLLEN SIE 


„erE Far ODER 

2353 NKEY ; so TO 78 
se InKEYgz"@a" THEN GO SUB 9 
338: To 339 

Asse ır INKEYse* ' THEN &0 TO 82 
7862 IF INKEY$="8" THEN 50 TO 78 


3382 EAınT 48, er Ban "SO BET 
KT TIPPEN 


Are = 


=STR$ 

I: 251 

TR$ DD: 
Be BSH Eu 
E sauer "BRUERSEr 
caTa E 

7. Bath, Beat Die "SRULEN_S, 


SIE AUF 
: _PRU 
"TRI 
so el 
7 DARRUFHIN 
ÜTEDERN: OL! EN "se oaese BER NO 
CHEINMA € 
SSSE" CO se 
7398 PRINT AT ®, ERIFY 
A_R$U:; PRINT AT 8,08: VERI 
DATA TE. At 8,8: VERIFY 
7395 PRII RIFY_"" DAT 


5 AT® 
Ads" PRINT AT 0,8: yERIEY 2V 
Base sh PRINT ar 8,8: VERIFY 


A 
7398 PRINT ao; 2; "RUFNAHME_I 
STZKORBERT BERUFEN. BITTE DREU 


27397? PRUSI so TO 9398 
28398: 
2899: 
2203 REM HARBODEY 
en GN T 80; Sarg WOLLEN $ 
IE E +8 2 BILDES 
Zu <> un THEN co TO 79 
7325 IF En "5" THEN 50 SUB 9 
9932: GO T 590 

IF INKEY$="S" THEN GO TO 79 


27935 50_TO 7925 
zur : PÜKE 233908,192: POKE 


7388 36° Zus 9998: GO TO 9898 
3383 REM LISTENAUSDR, 


7385 PRINT #0;AT 8,0) "WOLLEN SIE 
DIE SRUTEILLIS TE aus. GRUCKEN 


7950 IF INKEYECH"" ie so To 79 
& 

4385 IE INKELSE"®" THEN SO SsuB 9 
age IF INKEY$="S" THEN 60 TO 79 


TO_7955 
Zune “e SUB 9898: LPRINT : LPRIN 


T: NT 
7381 -EBAINT "WIDERSTAENDE";TAB 1 
Pass LET Nein LET yet PRINT 


s= LE = 
3381 ge, R IN sy { er;; AND, N 
RR A THEN LE LET +STR$ Na" 4 


x 
R 
To 2 
585 en Dia TREN co SUB 7993: 6 


0 T0 
7956 fF sn <oY$( TO 18) AND,x< 
co Sl HEN LET & ="C"4STRE %4H" "+6 
IE 
7? IE REN 50 SUB 7994: 5 
8 T0 7 
7983 L Us) TAB 182U86 
73893 I 7393 
2998 I THEN & us 7994 
991 I AND X=C0 THEN GO TO 


7i RINT PEr 
BEGINNT NUN ! der x= u 
78 LET en =STRs RR: SAVE "W LET_V$= 
ILERSTAND nn LET Tsi41) ( TO_18) AND Ni 
=STR$ TT: save“ "TRANSISTOR" DATR DD THen D T use“ "4STRE Nr" "+D 


Aa, 72 


Anwendungs-listing 


$ini: 60 TO sa1lo 

5883 IF N:bO THEN GO SUB 8: 8 
3 _TO 3008 

Sala IF TEiX) eHYEL ae ar NE 
TT THEN LET Us TREE N+"  "4T 
six): en TO_8812 

Sall «TT THEN GO [e 
o To 

salz NeLTRB 18,08 

3a13 HEN GO SUB 7993 
S@14 IF X<TT THEN 50 SUB 7994 
8815 DD AND X=TT THEN E0 TO 
808 

8817 

Ss228 

89235 "SPULEN";TAB 15; "DIV 
ERSE 

8225 LETERS ee 

8927 u 

02; I) yat 'rg° ie, AND nt 


8025 IF FE 

LU THEN LET UE="L"4STRE N+" 

sin) 8839 

8829 IF N<LL THEN 60 SUB 7995; G 
o_TO 29283 

3859 IF E$iX)<>Y$1 TO 10) AND N< 
EE En LET DEE 60 TO 3035 
gası Inge HEN 50 SUB 7994: © 
8835 LPRINT us ine 16,0% 

8938 IF N<LL THEI 3383 
gesg IE X<EE THEN & SUB_7394 
Sa N =LL AND X=EE THEN GO TO 
8939 50 8027 

3948 BoKE 23300,192: PÜKE 23301, 


® 
g845 SO SUB 3a90: GO TO 2599 


EN SIUE le 
ige BER Ba 
THEN s0 To sa 
THEN 60 SUB 9 
5" THEN 50 TO 58 
3857 IF INKEY$="S" THEN CO TO so 
3878 ERINT KO.NT 9,0; "BEREITEN S 
IE ee vor! 
9275 Vs 9800: PrınT aBıhr oe. 
dasa co SyB 9990: SAVE "BILD"CoD 


8235 60 co TO 9898 
"SCHALTEN 5 


Sr LORD ""CODE 16354: GO SUB 9 


AHLEN 
8102 PLOT XXX+1,YYY: DRAU 1, 
RAU 8,2: DRAW 1, 1: DRAW -1, 
DRAU 6 
8195 RETUR 
ee BE oz, YYY: DRAU 8,4: D 
is Retuan 


8122 PLOT XXX+2,YYY: DRAW -2,0: 
EnaN ®,1: DRAW 2,2: DRAW 8,1: DR 


S138 PLDTARX,YYY: SBRAU 248: 
u 8,1: KT oRRO" 1242 ORRD 
Q,4: gel. WEC Yea 

318 


5 RETUR! 
gi42 PLOT Roc YYY; DRAU 8,4: D 
Bau 8,-1: DRAU 2,0 
Sies Reramn 


B152 PLOT AXX,YYyY: BRAUN 2.0: DRE 
2.2: DRAU -i,0: DRAW 1.1: DRA 
Rau 2,0 


iR} 

8155 UR! 

8152 At OT in YYY+4: DRAU -1,8 
Drau 1,-1: OAAM 8. 3: DRAAL 

SRay_® Eu DRAL +2,80 


85 
2 Pgr BT has DRAU ®,1: DRR 
ER RUE 


er) 

PLOT ex yyv: DRAU 249: „DER 
RAU -2,2: oQR ai; ORAL 

oRAD" a, "2; DAR 

TURN 

DRAU -3.7 


ei: 


no 
m 


n 


» 
2 


BR On Pr ne 

SWRS- SWL 

mar ©. nor 
cm 


x 
x 
x 


"DDr 
D 
67 


< 
2 
B3 
” 
Ele} 
’D 
ıD 
= 
w 
m 


BD 


sa 


ETURN 


DOHHZ LUHE TUWLHMS- 


Ba LISTEN LADEN 
INT _#0,AT Er 2, "LESEN SIE 
Fe a UND SCHALTEN 5 
a) Fr LORD "" 
&8 AD ATA D$(): LO 
AT F ER 2 "" DATALS 


Eu sus 3338: ei TO 93898 


Ar MEBIDWDLN 
Per Sa 


Li 
NE 
Log 


SEEN. DIMHOHR 
BO Te Dame 


1 
8350 


B 233297,232; POKE 23298, 
&:_PoKe 33209,84: RANDOMIZE USR 


CHTUNG 


co sus 9 
AA=-1: G 
AA=1: GO 
AR=-1: 6 
? anzı- so 


* esior king »Platinen-CAD« 
(Schluß) 

REM_PLOT-KORREKT,, 

PLOT OVER 1,XX,YY 


N 
SAVE "PLATI.-CAD" LINE 1898 


Tips& Tricks 


Internas aus 
dem Spectrum 


Zwei wertvolle Tips, die den nicht mar- 
kierbaren Interrupt und den freien 
Speicherplatz betreffen. 


In Happy-Computer, Ausgabe 11/1984, wurde gezeigt, wie 
man den maskierbaren Interrupt, also eine abschaltbare Unter- 
brechung, benutzt. Aber auch der nicht maskierbare Interrupt 
(NMI) kann genutzt werden. Der entsprechende Anschluß des 
Z80A-Mikroprozessors, ist zwar lediglich an den Userport ge- 
führt, aber das reichtaus. Wenn man »RANDOMIZE USR 102« 
(102 dez. = 66 hex.) eintippt, gibt es einen Systemkaltstart. Ist 
das nur eine Alternative zu »RANDOMIZE USR 0« dem »offi- 
ziellen«Systemkaltstart? Jetzt tippen wir»POKE 237 28,1«und 
dann »RANDOMIZE USR 102«. Nun kommt die Meldung >o.k.« 
Schauen wir uns das Listing an. Es zeigt die Routine an der 
‚Adresse 66H. Wir sehen, daß der Wert von NMIVAR geprüft 
wird. Ist er Null gibt es einen Kaltstart, ister < > Null, wird zu- 
rückgesprungen und mit dem normalen Programm weiterge- 
macht. (Stünde da der Sprungbefehl »JRZ,+ 1«, dann wäre es 
fantastisch. Man könnte durch den nichtmaskierbaren Inter- 
rupt an eine beliebige Stelle springen. »Wann immer sich der 
‚Spectrum aufhängt, könnte man sich retten. Wer also sein 
ROM in ein EPROM umschießt: diese Stelle bitte ändern. 

Wo die Systemvariable NMIVAR ist? Im Handbuch auf Seite 
176 steht für Adresse 23728/9: nicht benutzt. Bitte durch- 
streichen und NMIVAR hinschreiben. Wenn wir jetzt am User- 
port die Anschlüße OV und NMI (siehe Happy-Computer, Sin- 
lair Sonderheft, Seite 27) mit einem Schalter verbinden, ha- 
ben wir einen Reset-Schalter, den wir softwaremäßig (»POKE 
237 28,1« oder »POKE 237 28,0«) beeinflussen können. Beim 
Interface 1 gibt es keine NMI-Routine. Tritt ein NMI auf, wäh- 
rend das neue ROM eingeschaltet ist, wird er ignoriert. 

Beim Disassemblieren des Spectrum-ROMs fällt noch et- 
was auf: Obwohl das Spectrum-Basic den Befehl FREE nicht 
kennt, gibt es die entsprechende Maschinen-Code-Routine. 


So benutzt man sie: »PRINT 65536-USR 7962«. Diese Me- 
thode ist besser als alle anderen. Sie liefert immer den klein- 
sten Wert. Der Wert ist: SP-(STKEND+80) (siehe Speicher- 
karte, Spectrumhandbuch, Seite 165). Diese FREE-Routine 
benutzt den gleichen Test, den der Spectrum macht, um fest- 
zustellen, ob noch Speicherplatz vorhanden ist, wenn er wel- 
‚chen benötigt. Die »80«, das sind 80 Byte »eiserne Reserve«, 
die der Spectrum beim Testen auf freien Speicherplatz immer 
zurückhält. Noch eine Bemerkung für Profis: Die Variable SP 
ist der Stackpointer, ein internes Z80A-Register, das von Ba- 
sic aus sonst nicht zugänglich ist. Das Ergebnis des Aufrufs 
von USR 7962 liefert den freien Platz als negative Zahl in 
Zweier-Komplement-Darstellung. »65536-USR 7962« formt 
diese »negative« Zahl in eine positive um. Falls die Routine den 
Wert —1 liefern würde, gibt es die Meldung »OUT OF MEMO- 
RY«. (R. W. Gerling) 


NMI “ 
@0656 FS PUSH AF 
0067 ES PUSH HL 
0965 2ABOSC LD HL, INMIVARI 
Qa6B 75 LD A,H 
@a6C BS OR L 
QBsD 2801 JR NZ, +1BBIGNORE 
@asr E3 JR (HL) 
7a El HL 
Ei Ar 
ED: 


Dieses Listing zeigt die NMI-Maschinencode-Routine zur 
Abarbeitung des nichtmaskierbaren Interrupts. 


sTraumbilder« 


ıf zwei Bildschirmen 
5 durch übersichtliche 


een 
© el gespeichen® ; 
‚eichzeitiges Male: e. 
© Zintache Bedienung durch 
ütechnik 
. ones Farbmend (16 Farben) 
© umfangreiche Diskettenbefen 
(Speichern, Löschen, Laden) 
. 100% Maschinensprache 


ktchniProgrmmsarhen Si bel Are Bucht 
MarntaTech 


amiirn Buchner ode an eins un 
an ende des ion Bein 
on von dan Depot 


Bestikarten bie 
Yengen. Adwasene 
ingenende Beste 


Verlag Aktiengesellschäft 
Buciwerlag 
Sehe aaar223155 
hans piner a. 2, Bo er a Ra zu, B ORZEISE, 
Se a  zwensrbe 10. A122 Wie, 
einen Rusahisch 


Sonderheft Spectrum 


59,- 
DM „ 
Deutsches 
% Auswahlmenü auf 
2 Diskette 
Deutscl 
Anleitungsheft 
{ % mit Teilnehmerkarte Mi - 
N großen Paint-Magic-Ma 
Wüber 100 Preise. 
4. Preis: DM 2000,— 


N Inbar. 


zum nelekronischen Künsten 


jreien« 
en ee 


Tips& Tricks 


Border-Effekte 


Mit Hilfe des Programms »Border- 
Effekt« kann man Border-Effekte aus- 
wählen, auflisten und somit in eigenen 
Programmen verwenden. 


Das Programm arbeitet mit dem OUT-Befehl, mit dem man 
unzählige Border-Effekte entwickeln kann. Dieses menüge- 
steuerte Programm bietet also nur eine Auswahl der Effekte. 
Die einzelnen Effekte sind im Menü angegeben und eine Be- 
schreibung stim Programm integriert, so daß hierrnurnnoch die 
wichtigsten Punkte aufgeführt werden: 

Beim Listen eines Border-Effekts muß nach Erscheinen von 
SCROLL? »ncund dann GO TO 9050 eingegeben werden. Um 
Border-Effekte mit Ton zu erhalten, muß bei der Eingabe der 
PAPER-Farbe der jeweilige Wert um 16 erhöht werden. 

Die aufgelisteten Border-Effekte können durch einen ange- 
schlossenen Drucker ausgegeben werden. Mit GOTO 9900 
kann das Programm »Border-Effekte« auf Band gesichert wer- 
den. (B. Baran) 


Variablenliste 

s Dauer des Effekts 

a,b,c,d, Ink-Farbe des Streifens 0-7, keine Farbe: 

1.,2.,3.,4. —ı 
Paper-Farbe 0-7, 16-32 mit Ton 
Schleifenvariable für Border-Effekt 
Zeile, ab der gelöscht wird; bei Listen 
Zeile, zu der zurückgesprungen wird 
Zeile, ab der gelistet wird 
zu welchem Border-Effekt es geht 
Zählvariable beim Eingeben der 4 Inkf. 
Ink-Farbe beim Eingeben 
zusätzliche Schleifenvariable 

$ Tastatureingabe 


Ba -Dcun-xo 


Aufschlüsselung der Zeilennummern 
30— 55. :Erklärung ja oder nein? 
58— 95 :Erklärung 
100— 180 :Menü 
210— 224 :Dauer des Effekts wird eingegeben 
225— 260  :ink-Farben werden eingegeben 
270— 290 :Paper-Farbe wird eingegeben 
310— 340 :Ink-Farbe wird eingegeben 
1000— 1560 :Border-Effekte siehe Listing 
9000—9050 :Border-Effekt wird gelistet 
9100—9150 :Ausgabe auf Drucker 
9900— 9930 :SAVEN für Border-Effekte 


10 REM 


us? BORD! 

25 ERINT FLASH 1; BOR 
DER-EFFEKTI 

39 PRINT Ar Eee ung n 
vetig er nei 
ngeben)?" n 

40 IF INKEY#="j" THEN GO TO 69 

58 IF INKEY$="n" THEN 60 TO 18 

55 60 TO 40 

58 REM 1 Erklaerung BO 


88 CLS : PRINT FLASH 15" 
cklaerun " 
78 PRINT AT #,8;' EN 


« 
€ 
Bor 
n auc 
n dies Leicht 
in eigene Fogranne «in 
setzen." 
?5 PRINT "Beim Listen muss man 
nach den Erscheinen von SCROL 
L?,n eingeben um dann GO 
TO_925@ zu entern. 
89 PRINT "Nachdem 
nuepunkt ausgeva 
s nan ver- schiede 
eben: 
98 PRINT "Bei den 
(ten die zahlen 
tur fuer SE FTSER 
“ei de 
Uch; aber wenn m 
ill, muss, man den W 
rho@ 
95 PAUSE @: PAUSE © 
98 REM Menue 
108 CLS ; ERINT FLASH 2; ", 
eek AT 2,0; Borde 
119 PRINT AT 4,03"2. Blinkende 
Laufende Streifen 2. Einfarbige 
r schnell laufender Streifen 
3. Standhafte 
Streifen nit blinkenden 
Hintergrund 4. Deno 
Blitz-Effe 


kun 
iso N, AT 14,8; "Menvepunkt a 
uswaehlen 

aISB-ir Inkeyssta" THEN LET U=1® 
142 IF_INKEY$="2" THEN LET U=12 
THEN LET ue18 
15o Ir INKEY$="@4" THEN CLS : GO 
a,’ I7 INKEVe=IET THEN GO TO 48 


180 so TO 130 
198 REM M Werte werde 


eingegeben 
ne 
5 CLS : ARanT "Werte eingeben 


219 INPUT "Dauer (1-258) 
338 Ir yıı OR"S5288 THEN &8 To 


10 
222 PRINT AT 2,8; "Dauer: ";s 
224 RETU EN 


Li 
238 PRIN "Ar 20,0;9;", Ink 
@-7, -1 fuer keine Farbe) 


INPUT 
nen IF 1-1 OR i>7? THEN GO TO 2 
nes IF 9-1 „THEN LET ass: PRINT 


4,0," 
Ass PRINT 
AT_6, 5 
2 ar PRINT 
T_8,8;" 
254 Ir PRINT 
AT_10,8; 
855 IF a = THEn are AT 28,0," 


TO 270, 
257 print“ Ar 20,0; ' 


259 LET 9=4+1: G0_TO 230 
@70 INPUT _"Paper-Farbe (9-7 ohn 
;® 


€ 
9 OR e=11 OR @=12 OR e=ı 
+ OR e=15 OR e>25 THEN "33 78 278 


Basic-Listing »Border« 


Sonderheft Spectrum 


290 PRINT_AT 13,0; "Paper-Farbe: 
"ie: PAUSE @:_ 60 TO U 


205 
"Ink-Farbe (8-7) 


a 
328 IF a<d OR a>7 THEN 60 TO 31 
338 PRINT AT 4,8; "Ink-Farbe: "; 
348 GO TO 271 


ur E' 
e laufende 
nm 


LET I=3: LET f= 
=";s: PRINT 


Streifen 
den 


OUT_2 
OUT 254, se; our 


LET I=6: LET r= 


3ı9 

320 

330 

4,c 

54 

348 NEXT x 
359 LET psig19; 
369 {) 
370 

08 

418 

420 

438 


o 
OUT 254,x: OUT 254,9 


1449 NEXT 9; NEXT x 

1459 LET psisiQ} LET Ist: LET r= 

1489: GO_TO_9008 

1489 GO TO 9100 

1509 REM DM Blitz-Efrest 

1510 FOR x=0 TO s 

1520 FOR 9=0 TO 

1838 DUT 254,9: OUT 254,9+0 

1548 9: NEXT 

1558 LE sei: LET Is4: LET r= 

1589: [} 

1568 "is: 60 TO 

3108 

3808 ekt-Listing 
N den 
olı das Lis 
order-Effek 
fscheinen ( 
lachdem scro 

eingeben u 

entern.” 


OR ag="N" THEN 60 
" OR ag="J" THEN CL 


PRINT AT f,® 


f: GO TO r 
180 NEN m ERE Effekt-Listing 
auf dem Drucker 

Susgegecen 
9118 PRINT AT 20,0; "COPY ij oder 


BO 
OR 


0,180. 
9148 IE age" nn” ag="N" THEN GO 


Er Rem ns Sven des Programms 
Border-Eifekte 

9918 CLS : SAVE "Eifekte" LINE 1 

2320 N, "Band zurveckspulen f 


3830 VERIFY "Errekte" 


Basic-Listing »Border« 


Markt:XTechnik-Buchverlag 


Bestelikarten bitte an Ihren 
Buchhändler oder an eine 
unserer Depotbuch- 
handlungen. Adresson- 
verzeichnis am Ende des 
Heftes! 


Markt Iechnik 


Verlag Aktiengesellschaft 
Buchverlag 


Hans-Pinsel-Straße 2, 
8013 Haar bei München, 
= 08914613220 

Schweiz: Markt&Technik- | grammen mit Bas! 
Vertriebs AG, Kollorstraßos, | Due, naeh sn 
CH-6300 Zug, © 0421229155 | Besı.ne, ar 507 (cn) 
‚Österreich: Rudolf Lechner & 

Sohn, Heizwarkstraße 10, 
. @ 02221677528 


H.L. SchneideriW. Ebort 
Das Commodore 64-Buch, Bd. 4 


1984, 261 Seiten 
Eintührung In Maschinenprogrammio- 


H.L Schneider 
Das Commodore 64-Buch, Bd. 7 
August 1984, 210 Selten, 


IH. L. Schneider/W. Ebert 
Das Commodore 64-Buch, Bi. 5 
322 Seiten 


fe chechs werk für don geöbten 


uizer. 
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Tips& Tricks 


Tips& Tricks 


CLEAR-LIST: 
Mehr Über- 
sicht für Ihr 
Listing 

Bei 32 Zeichen pro Zeile führt schon ei- 
ne IFITHEN-Anweisung zu einem Zei- 
lenüberlauf. Fängt man erst an, meh- 
rere Befehle in eine Zeile zu packen, 
muß man bei GO TO- und GOSUB-Be- 


fehlen oft lange suchen, bis man die 
Zeilennummer gefunden hat. 


‚Abhilfe schafft das Programm "Clear-List‘, in dem es einelin- 
ke Spalte (5 Zeichen) für die Zeilennummern bildet und in die 
rechte Spalte den Zeilentext hineinschreibt. Die Zeilennum- 
mern sind dadurch klarin einer Spalte untereinander zu erken- 
nen. Ein Beispiel dafür ist das Programmlisting Clear-List +. 
Das Maschinenprogramm ist 149 Zeichen lang und so schnell 
wie das »Original-LISTe. Es kann auf Drucker oder Screen aus- 
‚geben, der Ausgabebereich kann durch das Begleitprogramm 
festgelegt werden. 


Verblüffend einfache Eingabe 
durch Basic-Lader 


Das Pogramm geben Sie wie folgt ein: Tippen Sie das Listing 
»Clear-Liste ein. Nun müssen Sie sich überlegen, wo Sie den 
Code unterbringen. (Zum Beispiel 30000 für den Spectrum 
16 KByte). Schützen Sie diesen Bereich mit CLEAR Start- 
adresse — 1 (zum Beispiel 29999). Nun können Sie mit RUN 
starten. Geben Sie auf Frage die Startadresse an. SAVEN Sie 
das Programm wie den CODE (mit der Länge 149) ab. Mit NEW 
löschen Sie das Programm. Geben Sie nun das Begleitpro- 
gramm ein. Nach RUN fragt Sie das Programm nach Ausgabe- 
gerät und Bereich. Mit 2,1,10000 wird zum Beispiel das Be- 
gleitprogramm gelistet. Treten Fehler auf, muß das Eingabepro- 
gramm überprüft werden! Nachdem Sie nun das Maschinen- 
codeprogramm Ihren Wünschen entsprechend angepaßt ha- 
ben, können Sie mit Load "” ein Programm nach dem anderen 
einladen und mit RANDOMIZE USR Startadresse nach Her- 
zenslust listen lassen. 


(Hans Georg v. Zeschwitz) 


FO00—F004 Kanal (Screen (2)/Printer (3) öffnen) 

FO05—FOOA 1. Zeilennr. suchen 

FOOB—F010 letzte Zeilennr. ? (ja: Rücksprung in 
Basic) 

FO12 Zeilennr. ausdrucken 

FO15—F019 Tabulator in c auf 5 setzen, ein Leerzei- 
chen drucken. 

FO1A—FO1D HI auf 1. Zeichen setzen, in a laden 

FOIE—FO24 Enter ? (Neue Zeile, hi erhöhen und 


Sprung wenn ja) 
7 a 


F026—FO2E 
FO30—F038 
FO3A—F050 
F052 


F054—5a 


FOSB—F061 


FO63—F065 


FO66—F069 


FO6C—FO6F 


Fo71—F07d 


FO80—F094 


Versteckte Zahl? (HI +6 und Sprung, 
wenn ja) 

Token ? (Ausdrucken mit Routine und 
nächstes Zeichen, bei nein) 

Wenn a ein Leerzeichen vorher benötigt 
(z.B. OR) dieses ausdrucken. 

a mit der Nr. des Token beschreiben 
(AND erstes) 

HI und be retten, nach bc und hi die 
Startadresse im ROM laden, wo die Zei- 
chen der Tokens stehen (durch 7. Bit 
wird dabei das Ende signalisiert). 
Soviele Tokenenden zählen, wie in a ste- 
hen. be enthält die Anfangsadresse des 
aktuellen Token 

Nach HI Tokenanfang, be Original 

ein Zeichen laden, Bit 7 löschen und 
ausdrucken 

so lange weitermachen, bis man 

ans Ende (Bit 7) kommt. 

Register (außer de) original, wenn Leer- 
zeichen hinter Token erforderlich, aus- 
drucken, dann nächstes Zeichen laden 
Diese Ausdrucksroutine ist der Kern des 
Programms, sie ist lediglich dazu da, falls 
das Ende einer Zeile erreicht ist, 5 Leer- 
zeichen auszudrucken und c neu zu set- 
zen. 


Der Aufbau des Programmes 


2:0 coPy 


=@ Ri 

20 DE ODE a8-48-(7 
ANZ awil 

3@ _DATI S21Q21O0CDBEI 
2 1827CD: ARe323a37Ec" 

DR Ehe 

“eResgastor AS1195QDF: 
F DR BBABSRRINEST 
FCHPPPPIA1F EOSIERBOD4PP" 
_,50_DR SESCD®3S@B7DE 
SsıF20953ED25: ıF1l470778C9" 
5, 70 CL a LET z=Us 

&o ns=1 TO &: RE 
aD 8 5 T & NEXT.n 

90 LET Se FÜR n=z TO z+192 
1080 IF asi\jc>"P" THEN GO TO 13 
1:80 LET 8(5 TO I): POKE n,c- 
INT ic/286) 

120 LET BE POKE n,INT (c/25 
8): NEXT 


‚220 LET A=rN a yIBSEN diasia 
LET aßsasiS3 
"ie eo POKE rn, LE 


m: S=sın: NEXT _rı 
s «10508 THEN RRINT Err 


INT_"Alles ok" *"Aufruf mi 
IRRE. USR_";Z 


"POKE zei ‚@ druck 


"5 PRiNT- NPcKe "iz+1;",9 druck 
t auf Printe 
‚280 PRINT REESENE mir" "save ""C 


"zum spaeteren en: 
";z-1°"LORD BLED.hAssE 


PRUSE 2: CLS 


Eingabe-Programm für »Clear-List« 


Markt&Technik-Buchverlag 


willkommen bei 
Commodore 64 


296 Seiten 
Ale Wissenswerte m Umgang mt dem 
Commogare 04 - Parung. Kauf und Inse 
dene "Einsatz terig oe Wernenn arte Lemato 
Fetkter Programene - |} grinme > Aloe a [CH 
Fon. Etorlunk OR Beton tr 
(it Graf» Qeekgnet auch al Lifen (ür 
Gebote türjeden Ein: | Lehrer und Eitem 
ioiger Bont A. MT 687 
Bester. MT 701 (ir. 14.2005 274.40) 
(tr. 36.05 26.0) DM 38,— 


DM 48,— 


leicht verständlich 


Mi. HogenbartivR Tiorscheid 


BASIC-Grundkurs mit dem Commodore 64 

März 1085, 377 Saiten 

Eine grundiogende, kicht verständliche Einführung in de BASIC-Programmierung des Commo- 
dorm&2 » die ersten »Gehrernuche« u Programm achreiben «ale über Varablr «de Univer 
Bnlarwoisung PFUNT . Sprünge und Schlafen «die Eingabe von Daten «zwei 084 kommunine 
(an miteinander Eiäuterung eifach gahatener BASIC-Programme, die che Dalenternübertra 
Dungper Akkustkkoppierstauam - Üburaich ader BASIC-Baleh mi Syntax undErlauterungen 
m Anang « on Buch, das Gurch seinen paawebezogenen Aufbau oinon münelozen Einsog m 
die BASIC-Programmlorung mil dem C84 ermöglch!! 

Bost-Nr. MT 623 

(SM. 20,000 323,20) 


Juti 1984, 120 Seiten 
In die Basic welt & 
na Grafikmöglichkelten 


Lehrspielzeug Computer: C 64/VC- 
Speziell (0r Kinder entwick 
CANCH0 ein mit 

Kleinere Kinder benötigen de Hull Ihr 


Best.-Nr. MT 885 Dan 24,80 (Str. 23,165 193,10) 


Das große Spielebuch — Commodore 64 Februar 1984, 141 Selten 
36 SPopingrerme « Wsenauertes ber Progfumertechnk  Brannane Hinweise zurCra 
Ikerstehung » als über Joystick und Ph Hobsch mi Lee 
Basti. MT 603 (Buch) 
Best.Nr. MT 604 (Beispiele auf Diskette) 
" Ink, MwSt. Unverbindliche Proisempie 


Einführungskurs: Commodore,64 mai 1984, 276 Seiten 
Die Progranım Izgobete dos Commodore &4-Basic Graf, Musik Date 
Vorsskung. miwelen Beispiaprogrammen. häufigbe Heinen Tops «für 
Einzrongor una Fortgesenritene, 


Best-hr. MT 685 DM 38,— (St. 6,-18 206,10) 


Computer für Kinder Ausgabe Commodore 64 »064, 112 Seiten 

in Bbch ür Kinder und ra Lahr dal ür rat Bogionung mi Compulan, run Eiger 
Wilgneten und Bwon unrschöpfichen Bßgserkelen  eavrständehe Eileen urn 
m en Cammosere 62 al Progammbespiie n BASIC 


Bastei. PW 700 DM 29,90 (Sr. 27,50188 232,10) 


Commodore 64 Listings — Band 1: Spiele Oktober 1904, 198 Seiten 

"Mi austühlener Dokumentation - Spielanlekung - Vanaalen für se Anderung dor Spiele - vob 
Btincipe Usinas tr Büroe Jos. Maple» Zegel Zunge Unvrse  Würtapaker "Mazo-W 
ion der magache Kreis odeskoimmande Alan _Entorpree 

Bestchr. MT 748 

Best.Nr. MT 308 (Boispete auf Diskato) 


T.Rugg’Ph. Fokimanı 


Mehr als 32 Basic-Programme für den 
Commodore 64 


Commodore 64 — leicht verständlich 
Juni 1964, 154 Seiten 

intermatonen türen Computer-Nouteg 
naar und Inbetrebnatime © Programme 
Fern Basic - Graf und Ton - Auswahl von 
Hardware und Zubehör » Software Iür 
Computer» die denke Entähnung in das Ar 

Im Commadare 64 


DM 29,80 


"ben Commodore 64 

Anwendungen "jede 
Menge Lat. und Lernhilfen «super Spiele 
für Basio Neulinge und Experten 


Best.Nr. MT 613 (Buch) 
(Str. 45.1008 382.20) DM 49,— 


(&1. 27.5005 232.40) 


Markt & Technik-Fachbücher 
erhalten Sie bei Ihrem Buchhändler. 


Fragen Sie dort nach unserem 
Gesamtkatalog mit über 170 neuen 
Computerbüchern. 


Bestellkarten bitte an Ihren Buchhändler oder an 
einen unserer Depot-Händler. Adressenverzeichnis am 
Ende des Heftes. Beim Markt&Technik Verlag 
eingehende Bestellungen werden von den 
Depot-Händlern ausgeliefert. 


Markt & Technik Verlag AG kans-#nsorStabe 2, 8013 Haar dei Mönchen 
Schweiz: Mariä Tacak ertiebs AG, Klerstae 1, CHS300 Zug. 2 0427223155 
Üsteic: Rudi-Lschner & Son, Heirwerstrae 10, A1232 Wien 2 02221677526 


Tips& Tri 
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Entdecken Sie jetzt mit 


»Happy- 


Computer« 


die ganze Welt der Heimcomputer! 


Denn »Happy-Computer« 

ist einfach super: 
»Happy-Computer« bringt jeden 
Monat neue, tolle Tips und 
interessante Informationen über 
alle wichtigen Homecomputer- 
Systeme. In »Happy-Computer« 
finden Sie Monat für Monat 
Listings der schönsten Home- 
computer-Programme, die unsere 
Redakteure für Sie geprüft haben, 
die neuesten Hard- und Software- 
Tests sowie pfiffige Programmier- 
und Anwendungsbeispiele. All 
das und vieles mehr macht 
»Happy-Computer« zu einer 
wichtigen und interessanten 
Fachzeitschrift für alle, die Spaß an 
Homecomputern haben. 


Nutzen Sie deshalb 


jetzt die Vorteile durch 


ein Abonnenment von »Happy-Computer« 


Fünf quite Gründe sprechen dafür: 


1 »Happy-Computer« erscheint bereits Mitte des 
‚o Vormonats: So können Sie brandneue Listings 
bereits früher als sonst in Ihren Computer 
eingeben, Testberichte lesen und schneller auf 
interessante Angebote reagieren. 

den Monat, 


2: rn m Ioden Dose 


Sie sind en Eernien, Als Abonnent 
ekönnen Sie sicher sein, daß Sie Monat für 
Monat, Ausgabe für Ausgabe, »Happy-Computer« 
pünktlich erhalten - auch wenn Sie im Urlaub sind 
oder das Heft beim Händler vergriffen ist. Es 
gehen Ihnen also keine Informationen verloren. 


Nur als Abonnent erhalten Sie 12 Hefte zum 
@Preis von 11: Sie bezahlen (im Inland) nur 
DM 66,- für ein Jahr statt DM 72,- im Einzelverkauf. 
Das sind fast 10% Preisvorteil 


Es entstehen Ihnen keine weiteren Kosten: Porto 
«und Zustellgebühren übernimmt der Verlaa. 


Gutschein 
FÜR EIN KOSTENLOSES PROBEEXEMPLAR VON HAPPY COMPUTER 


JA, ich möchte »Happy-Computer« konnenlemen. 


emplar Wen ir aapp 
weiterbeziehen möchte, brauche sch nicht zu 

‚gelmaßig re: Haus per Post und bezahle pro Jahr nur 
DAN 60, suit DMT2,  Einzelvorkaufsprois (Ausland aut Antage). 


Vomame, Name 


rate FZOn 


Datum T Umersehrt 
Mir ist bekannt, daß ich diese Bestellung innerhalb von 8 Tagen bei der Bestelladresse wider 
fen kann und besätige dies durch meine zweite Unterschrift, Zur Wahrung der Frist genügt die, 
Tochtzeitige Absendung des Widerrufs, 


Datam 2 Unierschn 


Gutschein ausfüllen, ausschneiden, in ein Kuvart stecken und absenden an: Markt& Technik. 
Pontiac 


Tips& Tricks 


Bit-Kopierer 


Wer schon einmal versucht hat, sich 
eine Sicherheitskopie von einem ge- 
kauften Programm zuzulegen, um das 
Original vor einer Zerstörung durch ei- 
nen defekten Kassettenrecorder zu 
schützen, wird feststellen, daß sich 
die Programmautoren eine Menge Ge- 
danken gemacht haben, um ihre Pro- 
gramme vor Raubkopierern zu schüt- 


zen. 


Wer aber trotzdem nicht auf eine Sicherheitskopie verzich- 
ten will, kann sich freuen. Das einzige was man braucht, istein 
zweiter Kassettenrecorder und dieses Programm. Wer diese 
Zeilen liest wird wahrscheinlich denken, daß, wenn man einen 
zweiten Kassettenrecorder benutzt, gleich die beiden Recor- 
der miteinander verbinden und dann direkt überspielen kann. 
Dies mag in einigen Fällen stimmen, doch oftistesso, daß der 
dadurch entstehende Qualitätsverlust die Ladefähigkeit des. 
Spectrum übersteigt. Wenn man ein Programm lädt und da- 
nach wieder abspeichert, erhält man eine Kopie von hoher 
Qualität. Mein Gedanke war, das Laden und Speichern gleich- 
zeitigmachen zulassen und damit eine Kopie von gleichhoher 
Qualität zu erhalten. Der Spectrum wäre damit ein Aufbereiter 
oder Verstärker des Signales. Damit das Einlesen und Ausge- 
ben mit extrem hoher Geschwindigkeit ging, schrieb ich eine 
nur 34 Byte kurze Assemblerroutine. Ich rechnete mir aus, daß 
das Einlesen und Ausgeben des Signals schneller gehen muß- 
te, als die SAVE- oder LOAD-Routine des Spectrums, Ein wei- 
terer Vorteilist, daß mit dem Programm kein Byte an Speicher 
verloren geht, was auch das Kopieren von Programmen mög- 
lich macht, die den Spectrum voll ausnutzen. Der Abspielre- 


order wird an den EAR-Eingang angeschlossen und der Auf- 
nahmerecorder an den MIC-Ausgang. Die beiden Recorder 
werden nun genau so eingestellt, wie es beim normalen SAVE- 
oder LOAD-Vorgang getan wird. Wird nun das Programm ge- 
startet, braucht nur noch das getan zu werden, was auf dem 
Bildschirm gezeigt wird. Da die Assemblerroutine nicht fest- 
stellen kann, wann ein Überspielvorgang beendet ist, muß als 
Abschluß »SPACE« gedrückt werden. 


Zum Ablauf 


Istdas Programm abgetippt, so kann es mitRUN 100«gesi- 
chert werden. Nach dem folgenden VERIFY wird sich zeigen, 
ob das Programm richtig eingegeben wurde. Erscheint »Fehler 
in der Data-Liste« so bedarf dies einer Kontrolle der Prüfsum- 
mein Zeile 270 (IFs<>5239...) und der DATA.Liste in Zeile 
300. Findet man den Fehler nicht, so läßt sich oft durch die fal- 
sche Prüfsumme, die in Speicher s steht, ein Rückschluß zie- 
hen. 

‚Am Schluß muß noch bemerkt werden, daß mit dem Pro- 
gramm ausschließlich Sicherheitskopien für den Privatge- 


brauch gemacht werden dürfen. (Uwe Roth) 
Programmaufbau: 
003 — 070 : Hauptprogramm. Erzeugen des Bildschirms 


und Aufruf der Maschinenroutine. 


100 — 120 : Abspeichern des Programms mit Verify. 
200 — 290 : Erzeugen der Maschinenroutine. 
300 — 310 : Maschinenroutine als DATA-Liste. 


Variablenliste: 

s : Prüfsumme 

i Läufervariable beinhaltet die Adresse des 
momentan abzuspeichernden Bytes zur Er- 
zeugung des Maschinenprogramms, 

x : Maschinenbefehl als Zahl. Sie wird aus dem 
DATA-Feld gelesen und an die Adresse i ge- 
poket. 


ı REM 
NE 


Bit-Copierer fuer den 
ZX Spectrum 16/48K 


yon 
© by 


Uwe Ro 
Real Abth MCMLXXKIU 


ere ün Uwe Real 
Roth" "HENLXKKIDN Kass 
ttenrekorder 1:Aufnahne Kasse 
ttenrekorder 2:Band start 


PazNT, ET 8:@,"BitzcoR 
0, H 


58 BORDER 1: CLS 
‚10; "Das wars..." 


PRINT AT ı0 


IF 5495899 THEN PRINT AT 19 


"Fehler 
Q RETURN 
D REM 


in der Data-Liste 


Basic-Listing »Bit-Kopierer« 


= 


20 zn 


Sonderheft Spectrum 


Tips& Tricks 


Aufbau der Maschinenroutine: 


selbe Ausgabe mit Bit 3 = 1. 


000 : Festsetzung des ersten Befehls auf die 100 : Sprung zu »CONT« 
Adresse 30000. 110 — 120 : Ausgabe an Port 254 mit O für Bit 3 und 4 
010 : Sperren des Interrupts. und mit 2 (entspricht Rot) für Bit 0-2. Durch 
020 : Laden der Portadresse 32766 (Tastenreihe setzen der Farben Cyan für O am EAR-Ein- 
von SPACE bis B) in BC gang und Rot für 1 am EAR-Eingang eniste- 
030 : Einlesen des Ports 254 (Bit 6 ist EAR- hen dieselben charakteristischen Streifen 
Eingang) wie beim Laden eines normalen Programms. 
040 — 050 : Testen des 6. Bits auf O oder 1 Treten sie nicht auf, so ist das Eingangs- 
Wenn 0: Sprung zu »NULL« signal zu schwach. 
Wenn 1: Weiter zu »EINS« 130 — 150 : Abfrage ob »SPACE« gedrückt wurde durch 
060 — 090 : Ausgabe an Port 254 (Bit 4 = Lautsprecher, Port BC (32766), Bit 0. Wenn nicht ge- 
Bit 3 = MIC-Ausgang; Bit 0-2 = Border Far- drückt wurde: Sprung zu »LOOP«. 
be) mit O für Bit 4, 1 für Bit 3und 5 (ent- 160 : Öffnen des Interrupts. 
spricht cyan) für Bit 0-2. Daraufhin folgt die- |170 : Rücksprung ins BASIC 
30008 7544 ED78 2139 CONT IN #. (0) 
8 F3 BER Bader BR C CB47 2148 BIT 3A 
ge3ı BIFEF 0000 L ID ac.82766 ZS4E cası7s ei58 5 3 WLoor 
7536 CB77 BIT 5A 5] 2170 BET 
7533 04575 IP ZENULL 8183 END 
7538 3E0D 0058 EINS LD A.18 CoNT . 754A 
7530 DSFE 0078 UT 1254). NULL 7545 
753F SEUS 0638 ID A,5 EINS 7538 
7541 DSFE, PtEY] UT 1254),A LOOP 7631 
Er un, |va 
7548 DBFE 0120 QuT (250, & 


Maschinencode-Listing »Bit-Kopierer« 


1, 357-Laeck, 120 Ka Newet, enoncson, 
Montoranscnuß [Test HAPPY-COMPUTER 7/85) 


TRSTATUR (aronea) 1. 0 Scene ni 4 Spepogrerme DM 10 
CURRAH MICROSPEECH-Sprachsynihasizer w- 
ZXLPRUNT Il Centronics-Inter. m. ROM-Software (LIST. LPRINT.COPY) DM 185 
|MICRO COMMAND Spracherkennung inkl Mikrofon, Anleitung und 

n Om 109 
JOYSTICK-INTERFACE (kompstonlcurso) DM a0 
JONSTICKN! DM 88, 
Ber euischr Antung) 


CAD. (m. deutscher Anletung) 

Weitere Soft- und Hardwareangebote auf Anfrage! 
per NN zuzügl. Kosten für Porto u. Verpackung (DM 3,50-6;-) 

Tel. 0721/481812 (von 18.00 bis 20.00 Uhr) 

Gleich bestellen oder Gesamtliste anfordern bei 


Sa one 
U. KUNZ 


Junge Hälden 3 
D-7600 Karlsruhe 41 
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SPECTRUM 
DIE DEUTSCHEN MULTIS KOMMEN: 


Im Katalog. 


außerdem neu im Programm ... 


MULTIDISC MULTIDATA 
siehe Testbericht Sonderheft Supor-Alizwockdatei. Voll Maschi 
Juni/Jul'88, 'nencode Dt. Zeichensatz, 64 Zei 


»Disketten-Doktore für das Beta“ 
Disc-Floppy. Selbst einzelne By- 
tes sind. veränderbar. Einmals. 
ERASEIG Files orscheinen wieder 


und vieles, vieles mehr ... 


|Händleranfragen erwünscht. 


SCHNEIDER CPC 464, 664 


Rolf Strecker 
Elektronik- & Computervertrieb 


Luxemburger Str. 76 
5000 Köln 1 
Tel. 0221/417789 


proudly presents 
MULTICOM 


siehe Test HAPPY-COMPUTER 8/85. 


V-24-Schnitistele inkl. Software + Verbindungs- 
kabel, Parameter, 7 oder 8 Datenbits, 1 oder 2 
Stopbits, Parltätspröfung auf Wunsch, Echo EIN 
oder AUS, voll- oder halbduplex, 40 Zeichen je 
Zeile, zeienwoiser Scroll. Menügesteuert - daher 
öinfache Handhabung, 

‚mit Akustikkoppler (FTZ-Nr.) 
ohne Akustikkoppier 


DM 58 
DM 378, 


‚chen (Schneider 80) jo Zeile. Var- 
knöpfbare Such- oder Sortierkrite- 
Tien, gezieltes Suchen einzelner 
Wörter, Zeichen etc. innerhalb ej- 
nos Feldes möglich. Maske frei de- 
finierbar, 2 freiwählbare Drucker- 
formatierungen, ca. 33 k frei für 
Daten. Vollkommen menügestau- 
jet. Einfache Handhabung. Paper 
+ ink (Schneider Pen) frei wählber. 
[Floppy + Micro Drive kompatibel 


(nur Spactrum) 
für Spectrum DM 69, 
für Schneider DM 89, 


ee Et 


Tips&-Tricks 


UDGs durch 
POKE-Befehle 


Mit diesem Hilfsprogramm können Sie 
Grafik Zeichen auf dem Bildschirm 
darstellen, ohne diese vorher zu defi- 


nieren. 


Man kann zum Beispiel mit Hilfe dieses Programms Muster 
auswählen, um diese in eigene Spiele als Hintergrund oder als 
Mauern einzubauen. 

Wenn das Programm eingegeben und gestartet worden ist, 
muß man eine Zahl zwischen 0 und 255 eingeben (viele Varia- 
tionsmöglichkeiten). 

Nun bekommt man verschiedene Muster gezeigt. (Beliebige 
Taste drücken, damit neues Muster erscheint; Q (mit Caps 
Shift) drücken, damit man neue Variationszahl eingeben kann.) 
Unten steht jeweils, welches Zeichen man eingeben muß, um 
dieses Zeichen zuerhalten. DerPOKE-Befehl, denman vorher 
eingeben muß, erscheint auch auf dem Bildschirm. 

Der Zeichensatz wird durch den POKE-Befehl verändert. 
Um den Zeichensatz wieder normal darstellen zu können, muß 
man POKE 23607,60 eingeben. Mit GO TO 300 kann man 
das Programm »UDGs durch POKE-Befehle« auf Band si- 
chern: 

Aufschlüsselung nach Zeilennummern: 


120— 190. : Eingabe der Pokezahl 
140— 210 : Hauptprogramm: 

145 Zeichensatz wird durch Pokezahl verändert 
150— 180 : Muster erscheint auf Bildschirm 


190 : Angaben zum Muster erscheinen auf dem 
Bildschirm 

200 : Tastaturabfrage 

300—320 : SAVEn für Programm: »UDGs durch POKE- 
Befehle« 


Variablenliste: 

z POKE-Wert, um den Zeichensatz zu verändern 

f Schleifenvariable, damit alle Zeichen des Zeichensatz er- 
scheinen 

9,h Schleifenvariablen zum Zeichnen des Musters 


(Bernhard Baran) 
180 REM © Bernhard Baran 
© Bernhard 38 
sie. Frankenthal 
06253/24243 
229 REM m UD65 gurch 
E-Befehle 
120 ınpur "Eine Zahl Zußschen o 
Ka 255 eingeben. (6Q®=normal 
zo 
1430 IF z<0 OR z»255 THEN GO TO 
149 FOR_f=32_TO_ 187 
145 POKE 29697,z 
159 FOR 3=0 10 & 
189 FOR n=0 TO Sı 
PRINT AT IRICHRE FIAT 8,10 
SaRe Lin, 2 El 
188 SOKE Ad60r,se, PRINT #2; Ar 
2,8: !POKE 23607,";2; AT 1,0 "Zeic 
Bean 
228 bAUSE 8: ıF INKEYS="0" THEN 
210 CLS : NEXT 
388 SS : SEVE "lo6 Line 
uat®.ERINT 7 Band öfveckspulen r 
$20 VERiFY "ung" 


Basic-Listing »UDG« 


Funktions- 
tasten trotz 
Interface 1 


In Happy-Computer Ausgabe 1/1985 
stand ein sehr schönes Programm von 
R. Fuchs. Man kann damit jede Spec- 
trumtaste mit einer Funktion belegen. 
Leider läuft das Programm nur auf ei- 
nem 48-KByte-Spectrum ohne Interfa- 
ce 1. Ich habe versucht das Programm 
so umzuschreiben, daß dieser es so- 
wohl mit Interface 1 als auch auf dem 
16-KByte-Spectrum läuft. 


Bei dieser Arbeit hat sich herausgestellt, daß das Programm 
auf einem 16-KByte-Spectrum nur mit einem schweren Nach- 
teil läuft: einem schlechten Bild. Offensichtlich greift die Inter- 
ruptmodus Änderung in die Bildsynchronisation ein. Da beim 
16-KByte-Spectrum die Funktionstasten Routine in dem glei- 


oA all; 


‚chen Speicherblock liegt wie der Videospeicher, kommt es zu 
Kollisionen zwischen beiden. Schade für die 16-KByte-Be- 
sitzer. 

Warum!ief das Programm mit Interface 1 nicht? Der Autor be- 
nutzte das ROM für die Adresse der Interrupt-Routine. Dazu 
überlegen wir uns, was im Interruptmodus 2 passiert. Der Z80 
setzt eine Adresse aus dem I-Register und dem Wert auf dem 
Datenbus (den liefert normalerweise das Gerät, das den Inter- 
rupt produziert hat) zusammen. Beim Spectrum liegt auf dem 


32260 SESIEED4ATEDSECHBD -> 955 
32258 WBODOSET7DEDAT2ZIFF -> 753 
32275 7D362523367EEDSE -> 755 
32254 2A5ISCZ20B7ESEBB -> 450 
32292 320D7ECIFFFSDDES -> 1333 
32380 ESDSFSSAODTEFEUL -> 1139 
323085 233BFDCBAI16E2861 -> 595 
325156 ÜCDICTEDD2ARDB7EODD -> 988 
32324 ?TEQ4FEER2OSODDTE -> 1977 
3235 2S21885CBE2814DD -> 699 
32349 SBEBSEDDESAIEDSBAB -> 777 
32348 7E13110488192285 -> 242 
32356 TEISDSCDSTTESERI -> 895 
32354 320071 Bee -) 531 
s2372 7EDD?7EBOTFEBDSSIE -> 817 
32332 BEE ERS SE -> 778 
323558 7EI1816DD7E973285 -> 554 
32395 COISBSCCBEEAABB -> 778 
32484 7E2a3220B7ECICDIC -> 756 
32412 ?7EFIDIEIDDEIFRCIY -> 1699 


Hex-Listing für 16-KByteVersion 


u" 0 


Jetzt neu! 


Serienbriefe — kein Problem! 
Textverarbeitung und Adreß- 
verwaltung — ein kombiniertes Paket! 
Das Programm unterstützt das Diskettenlaufwerk 


(Wahlmöglichkeit: Speicherung Ihrer Briefe und 
‚Adressen auf Kassette oder Diskette). 


Leistungsbeschreibung von CPC-Text: 
Menügesteuerte Bedienerführung 

Automatische Trennvorschläge 

Blocksatz; Tabulatorfunktionen; Blockoperationen 
Deutsche Tastaturanpassung; deutscher Zeichensatz 
Texteingabe im 80-Zeichen-Modus (variable Zeilenbreite) 
Eigener Funktionsteil zur Druckeranpassung 

Cersororienierter Texeitor zur prolmlosen Korrektur 
Serienbrserstehing mit ndielueken Einstinoeradrensen ud 
Persönlicher 

e Ansteuerung von Drucksonderfunktionen 


Leistungsbeschreibung von CPC-Adreß: 

'@ Feste Eingabemaske mit sieben Eingabefelder 

'® Ausgabo der seleklierten Adrossen in eine soparato Textdatei 

'®_Auswahlmöglichkeit der Suchroutinen nach Code, Name oder 
Maske 

® Druck auf Endlospapier oder Adreßetiketten 


Minimale Hardwarsanforderungen: 


® Schneider CPG 464 

® Beliebiger Drucker mit Gentronios-Schnittstelle 
(standardmäßige. an alle Epson-Drucker und 
Schneider NLQ 401) 


M&T-Programme: 
Ihre ganz persönlichen 
Problemlösungen 


DM 79,— * autxassette, Bost-Ar. MK 242 G USEN 320090400) 
re) - 


s....... 


DM 89,— * auroisette Best. un 2020. a 
(St. 3-18 801.) 1 Mt umrnchePiisemstanlung 


Als Ergänzung empfehlen 
wir Ihnen unser neues 
Buch für den Schneider CPC: 


CPC464 


' FÜR EIN- UND 
UMSTEIGER 


Carsten Straush 
Hartmut Pick 


Dieses Buch ist eine praxisorlentierte 
‚Spiel- und Arbeitshilfe für den Schneider 
cpc.aoe. 


In ine Rundreise durch die Berniche BÄBIE Ga 
Sound, Ta jung und 
roinsatz, Bersen do micendeiedkac kon. 


en 
me bilden den Grı für eine CPC 464-Pro- 
Ba 

=: i 

sich die Möglichkeiten des Schneider CPC 484 Di 
das Handbuch hinaus erschließen wollen, gleicher 
nee, 


Best.-Nr. MT 801, ISBN 3-89090-090-9 
DM 46,— (Sfr. 44,20/6S 358,80) 
Oi angegabenen Preisa sind Ladenpreise, 


Markt&Technik-Produkte 
erhalten Sie bei Ihrem Buchhändler. 


Bestellkarten bitte an Ihren Buchhändier oder an aine unserer Dapot- 
eehhanginahn Baader nie ai a ass Baken Marie B Poninfls 


Tips& Tricks 


Datenbus, beim Interruptimmer 255. Das I-Register kann man 
beliebig laden. Bei der Adresse 256*1+255 schaut der Z80 
dann nach der Adresse, an der die Interruptroutine beginnt. 
Der Autor hatte I=9 gesetzt. Das liefert eine Adresse im ROM 
(also einen vorgegeben Wert). Und wenn gerade das neue 
ROM eingeschaltet war ging nichts mehr, dadann natürlich et- 
was anderes im ROM als Adresse gelesen wurde. Ich habe die 
Variable MIADD (siehe Disassembler-Listing) im RAM einge- 
führt, undschreibe die Adresse dort hinein. Dazu habe ich Imit 
253 beziehungsweise 125 geladen. 


So arbeitet die Routine 


Das Laden des Registers | übernimmt die geänderte Initiali- 
sierungsroutine. Sie schreibt auch die Startadresse der Funk- 
tionstastenroutine in die Variable MIADD. Sie ist bei65023 be- 
ziehungsweise 32255. Außerdem berücksichtigen die Ände- 
rungen, daß der Beginn des Basicprogramms sich verschie- 
ben kann. 

Wie benutzt man die Routine? Genau wie bisher. Man 
schreibt sich REM-Zeilen, die die Befehle enthalten. Der Ma- 
schinencode kann nicht verschoben werden, da absolute 
Adressen verwendet werden. Man startet ihn mit »RANDOMI- 
ZE USR 65040« (32270) und man schaltet ihn ab mit »RAN- 
DOMIZE US 65030« (32260). Um weiteres braucht man sich 
nicht zu kümmern. Der Code kann mit »SAVE "name" CODE 
65030,160« (32260,160) gesichert werden. Außerdem darf 

« man vor dem Laden das »CLEAR 65022« (32254) nicht ver- 
gessen. Damit ist dann auch MIADD geschützt. 


Microdrive-Hinweise 


Noch ein Tip für Microdrive-Besitzer. Beimir hatsich die fol- 
gende Belegung bewährt. 
1 REM CAT: CAT 1@ 
2 REM LOAD: LOAD * 
3 REM SAVE:INPUT a$:ERASE "m’;1;a$: 

SAVE ""m';tas@ 

In Zeile zwei habe ich das Zeichen »@« nicht vergessen. Ich 
brauche damit nurnoch den Namen des Fileseinzutippen. Das 
3@«bewirkt, daß eine Folge von Befehlen ausgeführt wird; oh- 
ne das »@« kann man noch etwas anhängen. Und man muß 
dann ENTER drücken. 


(R. W. Gerling) 
55959 SESEEL4TEDSECHUS -> 961 
559358 SDOUSEFDEDATZIFF -> 1884 
65045 FDSSEHZ33SFEELSE -> 1923 
85054 DRSISCZ2BDFEIERBB -> 580 
855852 SSBFFEOIFFFSDDES -> 1468 
65970 ESDSFSSABFFEFEBI -> 1269 
85078 283SBFDCBBI15E2551 -> 883 
55256 auEEBDanE FEDD -> 1248 
55994 B4FEER2BSODD?E -> 1077 
55102 BS21BSSCBEZ314CD -> 589 
85110 SEBESDDSSBIEDSBOD -> 77 
85115 FE1911048919220D -> 372 
65126 FEISDSCDSIFESERI -> 1153 
685134 J328FFEIS2ZCDDERUOD -> 6553 
55142 FEDDTEBFFEXUDZSIE -> 945 
55158 FE4U2BDS3EBDCDST -> 772 
55158 FEIS185DD7EBA?732058 -> 712 
55156 SCa1SBSCCEBEESRUD -> 772 
55174 FE23220DFECSCDIE -> 1825 
55152 FEFIDIEIDDEIFECS -> 1827 
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Symbole; 
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Hex-Listing für 48-KByte-Version 


a 


‚Assembler-Listing »Funktionstasten« 


Tips& Tricks 


Spectrum- 
Hexerei 


Hexadezimal-Listings sind kürzer und 
leichter einzutippen, als in dezimaler 
Form. 


Um Ihnen das Abtippen zu: error nabenvieh, speziel- 
les Programm für die Ein- und Ausgabe mit Prüfsumme ent- 
wickelt. 

Die Werte für die Zeilen 20 und 410 sindhiernur ein Beispiel. 
Diese Zahlen entnehmen Sie bitte dem jeweiligen Listing. Die 
Zahl rechts Ist eine Prüfsumme, die automatisch errechnet 
wird und der Kontrolle dient. 

Die Eingabe erfolgt mit RUN, die Ausgabe mit RUN 400«. 
Spectrum-Listings, die Sie uns anbieten, müssen mit diesem 


Programm gelistet sein. (mk) 
Q>REM RESERVIERTER PLATZ FUER 
Ss "BVTE MASCHLNENEDELBROGRAUME 
1 REM 
2 REM HEX LORDER 
3 REM 
4 REM SPECTRUM - VERSION 
5 REN MANFRED-D. KOTTING 
1-2 
18 REM HEREINGABE 
22 FOR 58 TO 23388 STEP 3 
38 PRI u; 
42 INP 
Fe $<>15 THEN 60 TO 28 
45 P EB Mer 
45 L 
sa F TO I+7 
5a L ol #241 
7a L ODE Asp) 


2 
34 IE Y3SZ THEN LET Y=Y-7 
73 LET XsCoDE Asp 
23 IE x>57 THEN LET "Ray? 
?4 LET X=X-48+ (Y-481 #1 
38 LET_Ü=C+X 
Sa PÜKE J,X 
188 NEXT_J 
118 INFUT_Z 
115 IF C=Z_THEN PRINT C 
128 IF 2<>c THEN GO TO 280 
150 NEXT I 
148 STOP 
398 CLS ; REM FEHLERMELDUNG 
218 PRINT "ERR EBEN SIE DI 
E° ZEILE "NOCHEINNAL EINF 
228 CO TO_38 
488 REM SPEICHERRUSERB! 
d1a FOR Tesssto 70 33808 ster 5 
420 LET Ü=0 
438 PRINT 1;"_ "; 
448 FOR JaI TO 147 
458 LET A$=CHR$ INT_(PEEK_J/16+ 
48): LET BS=CHR$ (PEEK J-15#INT 
IPEEK_J7186) +48) 
ası IE CODE AS57 THEN LET As=C 
HR$_INT (PEEK_J716+5 
482" IF CODE BEI87"THEN LET B$=C 
HRS (EEK J-158INT (PEEK J/1s4s 
’ 
455 PRINT AsiBs; 
458 LET C=Ü+PEER u 
478 NEXT J 
475 PRINT" -> ";C 
488 NEXT I 
438 STOP 
Sad SAVE "HEXLOADER" 
23780 S245534553554945 -> 5 
23758 5282058229894841 238% 
23775 S45n204555455228 -> 544 
3782 3906391259521338 -> 279 
23732 ADA1SIISAI49LEIS -> 584 
238088 dE4S4F4d4sa05052 -> 568 
23508 4F47524140404528 -) 552 
Listing mit Testausdruck 


Das Kassetten- 
Interface 


Der Spectrum hat ein ausgezeichne- 
tes Kassetten-Interface. Es ist aller- 
dings nur sehr wenig über die Benut- 
zung der entsprechenden ROM-Routi- 
nen bekannt. 


Ein Kassetten-File bestehtaus zwei Teilen: dem Header und 
dem Datenteil. Der Header ist 17 Byte lang. Dazu kommt noch 
am Anfang ein Flagbyte und am Schluß ein Checksummenby- 
te. Was in den 17 Byte steht, zeigt die folgende Aufstellung: 


Byte Inhalt 
1 
2 = String Array 
3= Code 
2—11 Die 10 Zeichen des Namens 


12/13 
14/15 


Die Länge 
Hängtaab vom Typ 

0: Die Autostart Zeilennummer; Falls kei- 
ne, den Wert 32768=8000h 

1: Das erste Byte des Arrays: 

2: Das erste Byte des Arrays: 

3: Startadresse des Codes 

Nur bei Programmen: 

Die Länge vom Programm ohne Variablen 

Listing 1 zeigt ein Programm, das diese Information auswer- 
tet. Listing 2 zeigt einen typischen Ausdruck dieses Pro- 
gramms. Lediglich die Information aus Byte 16/17 wird nicht 
angezeigt. Sie wird aber im Programm in Zeile 200 berechnet 
(Variable s). Man kann sie also leicht einbauen, wenn man 
möchte. 

Schauen wir uns in Listing 3 das Maschinencode-Programm 
an. Es ist im wesentlichen aus dem ROM kopiert. Es ruft die 
Routine an Adresse 1366=556h auf. Dasisteine Routine, die 
das Flagbyte testet, dann Bytes lädt und dann die Checksum- 
me überprüft. Falls irgendetwas nicht stimmt, springt es mit 
Carryflag Reset zurück. Das kleine Maschinencode-Pro- 
gramm läuft in einer Endlos-Schleife, bis das Carryflag gesetzt 
ist. Das Flagbyte ist: 
255=FFh bei Datenblock 
0=00h bei Headerblock. 


16/17 


Ze hr 


Tips& Tricks 


Das Flagbyte muß, bevor man die Routine 556h aufruft, in 
Register Astehen. Das Registerpaar DE enthält die Länge des 
zu lesenden Blocks (17 für einen Header). Im Registerpaar IX 
muß die Startadresse der Daten stehen. 

Es gibt eine entsprechende Routine an der Adresse 
1218=4C2h, die die Bytes saved. Die Parameter werden ge- 
nauso übergeben, wie beim Laden. 

Man kann ganz einfach Header-Lose Files erzeugen. Listing 
4, 5und6 zeigen die SAVE-, LOAD- und VERIFY-Routinen. Die 
Parameter für START und LÄNGE sind so gesetzt, daß man mit 
den Programmen den Bildschirminhalt speichern und laden 
kann. Man sollte die Routinen aus kleinen Programmen benut- 
zen. Interaktiv kann es Probleme beim VERIFY geben. Will 
man Header erzeugen, so muß das Register Amit OOhanstel- 
le von FFh geladden werden. 

Die Listings 4, 5 und 6 können an jede beliebige Stelle des 
RAMSs gesetzt werden. Listing 7 zeigt alle drei Routinen im 
Happy-Computer-Format ab Adresse 50000. Die Einsprung- 
adressen sind: 

50000 LOAD 
50016 SAVE 
50047 VERIFY 

Viel Spaß mit den Header-losen Files, die es sonst ja nur in 

gekauften Profi-Programmen gibt. 


(R. W. Gerling) 
19 REM Tape Analyse 
atüer 8% gering 
11 CLEAR 29999 
„15 ,DEF EN P (X) SPEEK x+aSSaPEEK 
29 EOR i=1 TO 35: READ a: Poke 
29999+ 
38 DATA Bel, 7.0, 
175,58, 208,88 12 
Er) Ana 
\gse BU R. ER ERSE 
SQ PRII “Laen 
14 Bemerkung 6: D 
Au 255,8 
es Pi then 
ess an 
85 PRINT ul 
78 Bee us us! 
78 LET ns 
89, LET AWP 
pri: Fi Rs 
SnEschas D) Ex 
® LET_L$= 
1s4 Da,S,LEN 8 
199 PRINT NS: 
120,IF top) BR er "Lesefe 
hier". co To 
139 IF typ<s THEN 90 TO 178 
180 LET SEEN einst 
150 216984 AN) Bo 780H g THEN 
padlr. auseBeene Ei 
RINT "CODE "is: 60 TO 


128 IF_typ=D THEN ns ei = 
Q LET Seen ER er +14 =IN 
R isuä24tras 


a): le MEru 
: t=2 5 t=6 THEN LET LS=l6+ 
rn PRINT "Array: 6 T0 7 
LET s=FN 


ak LET L=PN pilp+am: 


" LIN 
60, T9_78 

BEHSUS EUR ENG vE 
"T-Analyse" 


Listing 1. Das Programm Tape-Analyse listet alle Files auf, 
einem Band. 


00 «DR 


LINE 4 


POOR®NNENNS MO 
BBOHHXKaxunmem 


Listing 2. Beispiel Ausdruck des Programms Tape-Analyse. 


ipps Assoc_ + 
Version 3.09 7. Januar 18 
[os 40 402 @r ara tot; 29 

BEGINN: 

753@ 0D214075 LD I%X,DATA 
7534 111188 LD DE,@B11 
2837 XOR A 
2538 37 Scr 
27339 Cossas SALL 9556 
2330 ° RET C 
7530 633975 JP BEGINN 
Symbole; 
BEGINN EUU 7530 (50980) 
DATA EUOU 7540 (30016) 


4 


Listing 3. Disassemblerlisting der MC-Routine aus dem 
Programm Tape-Analyse. 


any rg ecga + ae rd 
og 7. 


Version 3. Janvar 1985 


SAVEN : 
0369 SEFD LD A,FD 
c362 CDel1ls CALL 1601 
c365 OR A 
Ca66 l1R1a9 LD DE,GBRL 
6359 CD@AeC _ GALL BCan 
CISC DDCB@SEE SET 5, (IX+2) 
garg Sopaıs  OALL 1804 
373 110618 LD DE,LAENGE 
6378 D3 EXX 
c377 aloaao LD HL,START 
C37A SEFF ID A,FF 
ca?C Ca0aus AP Bdca 


Symbole; 

EEEnuE Eau 1582 ‘ 6912) 
EuU 4080 (16354) 

SAUEN EOU C3608 (Sea1e) 


Listing 4. Ein Maschinencode-Programm, das den Bild- 
schirminhalt ohne Header auf Band speichert. Die Werte 
für LÄNGE und START müssen für andere Anwendungen 
geändert werden. Die Routine bei 308: ‘OAh druckt die 
Start Tape Message und die Routine bei 5588=15D4h war- 
tet, bis eine Taste gedrückt wird. 


Werden Sie ein Profi — 
mit dem Commodore 64 


Markt&Iechnik-Buchverlag 


H.L. Schneider 


Commodore 64 Listings 
Band 2: Dateiverwaltung + Schule, 
Hobby 

Oktobor 1984, 170 Seiten 

Ein Buch mit Programmen für dio ganze. 
Famille » DATAVE — Eine Datelverwak- 
tung © mathematische Funktionen 
Konjugation und Dekilnatlon in Latein 
Regresslonsanalyse  Bundesigatabelle. 
Best.Nr. MT 760 = 


s.23—es sa DM 24,80 


S Une 


Grafik & Musik auf dem Commodore 64 
Oktober 1984, 338 Sei 

Eine hervrragande Emlührung in die Pro 
‚ganmierung dos Commodore 64, apezil 
Sos VIC1-Gralkbaun sowie des oingebauten 
Synthanizers » 08 gu stur und kam 


. und Klangeflten » Spnechick. 
Zeichengrufk . hochwuinende Grafik 


Bast.ne Ma 70 
St.3.-0s zus) DM 38,— 


K.Sche 


Die Floppy 1541 Apr 1985. 434 Seiten 
Für ale Programmierer, de mahr über Ara VE 1541-Floppyataion orahren weilen. Dor Vor 
‚Qang des Formatierung : das Schroßsen vor) Fies mul Deu » de Funklonswene von 
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5 550C 
a E73 ® ne} 


[acde He mp SBerand tat; 20 
c350 opaıaaso [DB  IX,sTart 

C354 1108 D_ DE,LAENGE 
&383 Seer ‚er 

BEN gossos SALL as58 

Case 10F@ SR ZISRLADEN 
Symbole: 


GE EOl ( 8912) 
STÄR Eau 2888 Keen 


ps 
ersten Srbs 


IX,START 


bp210940 6 
a Li eS ‚LRENGE 


3EFE ID A,FE 
Cossos CALL a655 
D8 E 

ce Bat, 8 
iR DErB IA 
Symbole: 


LAENGE EuU 1880 ( 5912) 
START Es 4980 (16584) 
VERIFY EWU CH7F (500947) 


Listing 5. Ein Maschinencode-Programm, das einen mit 
Listing 4 geSAVEten Bildschirminhalt wieder lädt. 


Listing 6. Ein Maschinencode-Programm, das einen mit 
Listing 4 geSAVEten Bildschirminhalt VERIFYed. 


«Listing 7. Das Hex-Listing aller Routinen 


Ost Hr ROM Rune 
lan uns Fark Of Ts ul Spechum ROM Diss, Mason House une, 
ra 1065 


Es handelt sich hier um ein Übungs- 
programm für die vier Grundrechen- 


arten. 

Das gesamte Programm istrecht gegliedert geschrieben, so 
daß kaum Schwierigkeiten auftreten, den Programmablauf zu 
verfolgen. Doch sei folgend noch auf die Funktion einzelner 
Unterprogramme eingegangen. 

Umlaute 

Gleich nach Programmstart wird dieser Programmteilausge- 
führt. Da die Buchstaben a, 0, uund sim Alphabet nicht aufein- 
ander folgen, die Umlaute aber in den dazugehörigen UDGs 
untergebracht werden sollten, wurde der Umweg über den 
String gewählt, 

Hauptprogramm 

Das Hauptprogramm stellt auf dem Bildschirm ein Menü dar, 
läßt eine Melodie erklingen und verzweigtden Programmlauf je 
nach Wahl in die einzelnen Funktionen. 

GETI$ 

Etwas Besonderes stellt dieses Unterprogramm dar. Eigent- 
licher Sinn istes, wie der Name schon sagt, die Simulation des 
GET-Befehls einiger Basic-Interpreter. Doch geschieht noch 
einiges mehr: 

— Der Textint$ wirdin Bildschirmzeile 23 als Laufschrift darge- 
stellt. 

— Der Cursor (heller Untergrund) wird an der Bildstelle (y.x) 
dargestellt. 

— Die Eingabe wird überprüft, ob sie in M$ (für Menü) enthal- 
ten ist. 

Weiterhin sei noch erwähnt, daß in diesem Unterprogramm 
nicht INKEY$, sondern die Systemvariable LAST-K aus Reak- 
tionsgründen verwendet wurde. 

Rahmen 

Zur Verzierung sind an einigen Programmstellen Sternchen- 

umrandungen verwendet worden. Hier werden sie erzeugt. 


on 


cLs 

Die Tastatur wird auf CAPS-LOCK eingestellt, der Bildschirm 
gelöscht und die Kopfzeile ausgegeben. 
Falsch 

Bei falscher Eingabe innerhalb der Rechenaufgaben wird 
dieses Unterprogramm angesteuert. Es läßt eine Melodie er- 
klingen und ändert den Laufschrifttext. Weiterhin wird die 
Fehleranzahl (fe) inkrementiert. 
Richtig 

Ist eine Ziffer richtig, dann wird diese Prozedur ausgeführt. 
Eine kurze Tonfolge erklingt, die mögliche Gesamtfehleranzahl 
wird inkrementiert und der Laufschrifttext geändert. 
Musik 

Diese Prozedur liest die DATA-Zeile, deren Nummer in »mel« 
gespeichertistundspielt sie als Melodie. Dader Spectrum kei- 
ne Musikpausen kennt, wurde der höchstmögliche Ton ver- 
wendet, den wohl kaum ein menschliches Ohr hören kann, zu- 
mal die Lautstärke des Spectrum nicht gerade das Trommeifell 
platzen läßt. Weiterhin wird während der Musik die Tastatur ab- 
gefragt und die Prozedur endet, sobald eine Taste gedrückt 
wird. Um jedoch weder durch vorige Tastendrucke diesen Vor- 
gang auszulösen noch diesen Tastendruck an die weitere Ta- 
staturabfragen zu übergeben, sindnoch einige Sicherheitsvor- 
kehrungen getroffen worden. 
Addition 

Dieses Unterprogramm stellt eine Additions-Aufgabe und 
erwartet die einzelnen Ziffern der schriftlichen Lösung, worauf 
dann die Korrektheit oder Unkorrektheit angezeigt und durch. 
eine Tonfolge bekräftigt wird. Nach der Ausgabe der Über- 
schrift, einem erläuternden Text und einem Rahmen für die 
‚Aufgabe, ertönt eine Empfangsmelodie. Dann beginnt eine 
Laufschrift, unddas Rechnen kann starten. Die Annahme einer 
Ziffer gliedert sich in drei Teile: 
— Berechnen des Wertes und Umformen in einen String 
— Lesen einer Ziffer von der Tastatur 
— Korrektheit prüfen und eventuell neu lesen 

Die Berechnung des Übertrages ist der Summenberech- 
nung gleich angeschlossen, alsoist der Ablauf berechnen, be- 


a 


Anwendungs-Listing 


© oo & 


igung des Programms 


den Anfangsbuchstaben 
gewünschten Funktion 
eingeben! 


BED 


Angefangen nm ELITTITSESTEET 
Einern, a + * 
letzten * * 
sollen die * * 
addiert we * * 
gie Ein * * 
umne Wer * * 
unter den * * 
strich der * * 
fenden spa * * 
Zehner üb: * * 
Doppelstri * * 
nächsten * * 
links gesc EEITEISTSE TEE 
Bei _den 

bis Zehnt n müssen dann 
auch die er letzten 
Spalte mit werden. 
‚Additionsübung 


rechnen, lesen, prüfen, lesen, prüfen. Überträge werden nur 
dann von der Tastatur erwartet, wenn sie nicht Null sind, 
Subtraktion, Multiplikation, Division 

Der Ablauf und die Methode sind mit denen der Addition zu 
vergleichen. 
Test 

Dieses Unterprogramm liest den Namen des zu testenden 
Schülers, stellt von jedem Aufgabentyp eine Aufgabe, und gibt 
eine Urkunde aus, die auch ausgedruckt werden kann. 
Anleitung zur Benutzung 

Bevorein Schüleran den Computer gesetztwird, um mit die- 
sem Programm das schriftliche Berechnen der vier Grund- 
rechnungsarten zu erlernen, sollte dies die ältere Schwester, 
der alte Bruder, ein Elternteil oder eine andere Person tun, die 
das Rechnen beherrscht und sich die erläuternden Texte ne- 
ben den Aufgaben durchlesen. Denn die Reihenfolge des Nie- 
derschreibens der einzelnen Ziffer kann von Lehrer zu Lehrer 
schon recht verschieden sein, und diese Reihenfolge ist auch 
einzuhalten, da das Programm die Eingabe sonst als falsch 
wertet. Doch dürften dahingehend eigentlich kaum Schwierig- 
keiten entstehen, weil das Programm an die Stelle, an der eine 
Eingabe erwartet wird, einen Cursor setzt. 


xa,ya Koordination des oberen linken Bildpunktes für Rahmen 

dxdy ‚Ausdehnung des Rahmens in x- und y-Richtung 

t Nummer des ersten Zeichens auf dem Bildschirm im 
Laufschrifttext 

s Laufschrifttext 

mel Zeile, in der die zu spielende Medolie in DATA- 
Statements untergebracht ist 

ges zahlt die möglichen Fehler 

fe zahlt die gemachten Fehler. 

ms gibt die möglichen eingaben für GET an 

is übergibt das in GET gelesene Zeichen 

yx übergibt die Position, an der das Zeichen ausgegeben 
werden soll 

25 speichert die Ziffern einer Aufgabe und deren 
’Zwischenergebnisse 

ss ‚Summe einer Spalte 

us Übertrag 

“ Differenz einer Spalte 

as Ergebnis der Ganzzahldivision 

ps Produkt zweier Ziffern 

S Rest der Division Variablenliste 
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Variablen-Dump 


Variablen- 
Dump 


Im Handbuch des Spectrum wird aus- 
führlich beschrieben, wie die einzel- 
nen Variablen aufgebaut sind. Die Fra- 
ge ist nur: Was kann man damit ma- 


chen? 

Großcomputer drucken, wenn sie einen Fehler machen, ei- 
nen’ausführlichen Dump aller Variablen. Da ist dann genau auf- 
gelistet, welcher Wert in dem Moment des Fehlers in jeder Va- 
niablen steht. Das ist häufig sehr wichtig zu wissen, denn oft 
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Listing 1. Das Programm Variablen-Dump 
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Beginn der Variablen: 25278 
Nane wert 
a 25275 
x 3 
L 108 
® 4; 
i Zeile: 65 
a 
xyz 1,8545679E+11 
£ DIML: 
[2 [a ı 4 
x Fe iS ; 
b 2834 
2. Baus: 14 
is Rear 


Listing 2. Beispiel-Ausdruck des Programms Variablen- 
Dump, in dem jeder Variablentyp mindestens einmal vor- 
kommt. 


lautet die Fehlermeldung schlicht "Overflow in Zeile xxx”. Hat 
man dann eine Liste aller Variablen, so läßt sich der Fehler (der 
ja oft ganz wo anders steckt) leichter finden. 

Das Programm in Listing 1 produziert genau solch einen 
Dump. Wie das geschieht? Das Programm suchtab VARS nach 
Variablen. Dann wird der Typ der Variablen bestimmt. Dazu 
müssen wir die vorderen drei Bits.des ersten Bytes einerjeden 
Variablen untersuchen. Die Funktion k(x) liefert diese drei Bits. 


2 einfacher String 
3 einfache Variable 

4 Zahlen Array 

5 Variable mit langem Namen 
6 String Array 

7 FOR-NEXT Variable 


Variablentyp laut Handbuch 


‚Ausgehend von dieser Information wird dann der Variablen- 
typ bestimmt. Die Funktion I(x) liefert die Bytes O bis 4 und ad- 
diert 96 (SOH) dazu. Das liefert den ASCII-Code des Namens 
(beziehungsweise des ersten Buchstaben des Namens). Da- 
mit kann dann der Name (Zeile 4) und der Wert der Variablen 
(zum Beispiel in Zeile 23) ausgegeben werden. 

Außerdem unterscheidet das Programm noch zwischen 
Integer- und Real-(=Fließpunkt) Zahl. Dazu überprüft es das 
vorderste und das hinterste Byte der Zahl. Sindbeide Null, han- 
delt es sich um eine Integer-Zahl. 

Was wird nun alles gelistet? Zuerst einmal Name und Typ der 
Variablen. Dann wird bei Integer und Real der Wert der Varia- 
blen gelistet. Bei einfachen Strings werden aus Platzgründen 
nurdie ersten 14 Zeichen des Strings gelistet. Bei einem Array 
wird die Dimensionierung angegeben. Der Array a in Listing 2 
wurde zum Beispiel als mit DIM a(3,4,5) angelegt. Bei einer 
FOR-NEXT.Variablen wird Zeilen- und Statement-Nummer des 
FOR-NEXT Befehls angegeben. 

Wie wendet man nun das Programm an? Entweder von Hand 
mit GOTO 1 oder mit ON ERROR GOTO (Happy-Computer, 
11/84, Seite 86). Zum ersten: Man darf den Variablen Dump 
nie mit RUN starten, da RUN alle Variablen löscht 

Zum ON ERROR GOTO: Wenn das ON ERROR GOTO bei 
32500 beginnt, und mit Zeilennummer 1 angelegt wurde, 
dann ändert man lediglich die Zeile 9 in: 

9 IF PEEK a=128 THEN RANDOMIZE USR 32590: STOP 

Dann wird der Variablen-Dump, wie bei einem Großrechner, 
im Falle eines Fehlers und bei Programmende erzeugt. 

(R. W. Gerling) 


Softwure-Test 


Private Finanzen 

mit dem Spedrum 
sicher verwalten 

Multikont ist ein brandneues deutsches Programm 


ür den ZX- oder ZX- 
See 


deutsches Software 
mit Kassetten- u 


et, 


las es auf Kasseite 


Microdriveversion sowie Demo- 


programm und exakter Anleitung gibt. Wenn Sie 
also mehr als Ihr Taschengeld kontrollieren wollen, 


lesen Sie bitte weiter. 


er Test zeigt, daß Multikont 
D- der deutschen Herkunft 

die oftmals anzutreffienden 
Schwierigkeiten bei Anwendungen 
englischer Software umgeht und 
durch sein gelungenes Konzept vie- 
le sinnvolle Anwendungsmöglich- 
keiten für einen tagtäglichen Ge- 
brauch des Computers im Haushalt 
aufweist. Multikont dient zur Verwal- 
tung von bis zu zehn Girokonten 
oder Sparbüchern mit dem Spec- 
trum. Für die Konten können Konto- 
nummer, Bank, Inhaber und so wei- 
ter definiert werden. Dann werden 
im täglichen Gebrauch alle vorhan- 
denen Transaktionen als Buchungs- 
satz mit Datum, Buchungstext und 
Betrag für eines der bis zu zehn Kon- 
ten eingegeben. Der große Vorteil 
dieses insgesamt als sehr gelungen 
zu bezeichnenden Programmes 
liegt in den vielfältigen Optionen, 
die benutzerfreundlich von einem 
Hauptmenü ausdurch einfachen Ta- 
stendruck aufgerufen werden kön- 
nen und im Gegensatz zu den übli- 
chen Sammlungen von einzelnen 
Kontoauszügen eine optimale Über- 
sichtüber den privaten Vermögens- 
stand bieten. 


leistung überzeugt 


Die einzelnen Optionen sind; 
— Kontobewegungen eingeben: 
hier werden die einzelnen Bu- 
chungssätze wie auf einem Konto- 
auszug eingegeben. Das Programm 
akzeptiert nur richtige Werte zum 
Beispiel für Datumseingaben. Als 
Vorteil ist anzusehen, daß auch bei 


Transaktionen auf Sparbücher ein 
Verwendungszweck als Buchungs- 
text gespeichert werden kann. 

— Kontostände abfragen: Ein einfa- 
cher Druck auf Taste ] bis 10 genügt 
nach dem Abruf dieser Option, um 
die letzten 16 Buchungen auf dem 
‚der Taste entsprechenden Kontoab- 
zurufen. Gleichzeitig wird der ak- 
tuelle Kontostand ausgegeben. Nun 
kann man altemativ alle bisher auf 
diesem Konto eingegebenen Bu- 
chungen abrufen, alle Buchungen 
aufeinem angeschlossenen Drucker 
ausdrucken lassen (dies entspricht 
einem Kontoauszug für alle vorhan- 
denen Buchungen!) oder einen neu- 
en Stichtag eingeben. 

Nach der Eingabe eines neuen 
Stichtages wird nach kurzer, erträg- 
licher Wartezeit ein Kontoauszug 
für diesen neuen Stichtag und das 
betreffende Konto ausgegeben. So- 
mit kann man jederzeit den Konto- 
stand auf seinen Konten zu einem 
beliebigen vergangenen Zeitpunkt 
erfahren und ausdrucken lassen. 


Gesamtvermögensstand 
wird berechnet 


— Übersicht über alle Kontostände: 
mit dieser Option werden alle vor- 
handenen Konten mit Kontostand 
und der berechnete Gesamtvermö- 
gensstand ausgegeben. Zusätzlich 
erfährt man, wieviele Buchungen 
bereits gespeichert sind und wie- 
viele das Programm noch verarbei- 
ten kann (maximal 520). Auch hier 


kann ein neuer Stichtag berechnet 
werden, eine Hardcopy aufDrucker 
ist auch möglich. 

— Konto eingeben oder löschen: 
falls Sie ein neues Girokonto/Spar- 
buch eröffnen oder ein altes mit Sal- 
do 0 auflösen, benötigen Sie diese 
Option zur Eingabe der spezifischen 
Daten. 

— Datei abspeichern: Nach jeder 
Eingabe neuer Buchungen muß die 
aktuelle Dateiauf Kassette oder (nur 
bei der Microdriveversion in Ver- 
bindung mit ZX-Interface 1 und Mi- 
crodrive) Cartridge abgespeichert 
werden. Dies geschieht mittels ent- 
sprechender Option einschließlich 
eines Verify-Vorgangs. 

— Programm beenden. 


Gutes Konzept 


Wenn das Programm in der An- 
wendung durch seine vielfältigen, 
‚hier noch längst nicht alle aufgezähl- 
ten Optionen überzeugt, so tut es 
das erst recht durch sein allgemei- 
nes Konzept. Die gelieferte Softwa- 
rekassette dient nämlich nur zur Er- 
stellung leerer Multikont-Program- 
me mit Datei. Zunächst wird also das 
Programm von der Kassette gela- 
den; eine automatische Speicher- 
zoutine sichert es dann auf Leerkas- 
sette oder Microdrivecartridge ab 
(und zwar komplett mit leerer Datei). 
Danach wird das Originalbandnicht 
mehr benötigt (es sei denn, Sie wol- 
len weitere Multikont-Programme 
zum Beispiel für andere Kalender- 
jahre anlegen). Alle weiteren An- 
wendungen erfolgen nur noch von 
der eigenen Kassette beziehungs- 
weise Cartridge; bei Neueingaben 
muß nur die Datei mit den Bu- 
chungssätzen und nicht das ganze 
Programm neu abgespeichert wer- 
den. 


Positives Testergebnis 


Der Test zeigt, daß diese Software 
aus Deutschland sehr sinnvoll ange- 
wendet werden kann und neben ei- 
nigen bekannten englischen Pro- 
dukten wie Tasword II oder Master- 
file als sehr empfehlenswertes An- 
wendungsprogramm für den Spec- 
trum bezeichnet werden kann. Die 
knapp 40 Mark für eine Soltware- 
kassette mit speziellen Microdrive- 
optionen (Ladezeit vom Microdrive 
beträgt etwa 20 Sekunden) und eine 
ausführliche deutsche Anleitung 
stellen sicherlich eine gute Investi- 
tion dar. 

(&. Schober) 
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Software-Test 


Spedrum + Floppy 
= Profi-System 


Mitte letzten Jahres konnten viele 2 va Hasen 
aufatmen: Endlich gab es auch für diesen Computer 


ein lauffäl 


iges und datensicheres Floppy-Laufwerk, 
das die unnötig lange Wartezeit, die 


im Laden 


der Programme vom Kasseitenrecorder entsteht, auf 
ein Minimum verkürzt. Die mitgelieferte 
Systemsoftware ist zwar gut, aber was bisher 
fehlte, war ein »Disketten-Doktor«, der alle 
Informationen von der Diskette liest und 


Änderungen ermöglicht. 


Floppy, das über direkten Zu- 

griff vefügt und sich mit einer 
Ladezeit von etwa 13 Sekunden für 
ein 48-KByte-Programm auch pro- 
fessionell nutzen läßt. 

Doch was nützt die schönste Hard- 
ware, wenn die dazugehörende Soft- 
ware fehlt? Und damit taten sich die 
Software-Hersteller erst einmal 
‚schwer. Nur wenige Firmen erkann- 
ten die neuen Chancen für den 
Spectrum und entwickelten floppy- 
adäquate Anwenderprogramme. 
Eine davon ist Strecker aus Köln. 
Drei ihrer Programme sollen hier 
näher vorgestellt werden. 


Multidisc hilft 


Ein besonderer Leckerbissen für 
alle Floppy-Besitzer ist ein Pro- 
gramm, das jedem Benutzer eines 
Großrechners wohlbekannt sein 
dürfte und das jetzt auch für den 
Spectrum zu haben ist: der »Disket- 
ten-Doktor« Multidisc. 

Das Programm »repariertu softwa- 
remäßig beschädigte Disketten und 
hilft einmal gemachte Bedienungs- 
fehler zu beseitigen. Wer kennt das 
Problem nicht? Beim Platzmachen 
auf der Diskette mit ERASE, löscht 
man durch einen Bedienungsfehler 
ein File, dasman eigentlich garnicht 
löschen wollte, Und schwups, ist die 
Arbeit vieler Stunden in Sekunden 
unwiederbringbar entschwunden. 


D: Rede ist von der Beta-Disc- 


Sonderheft Spectrum. 


Aus lauter Wut möchte man am lieb- 
sten Diskette samt Floppy zum Fen- 
ster hinauswerfen... 

Das braucht man — wie gesagt — 
jetzt nicht mehr. Es reicht, wenn man 
Multidisc einlädt und die Diskette 
»untersucht«. 

Dabei erhält man zuerst allgemei- 
ne Angaben über die Diskette, wie 
Titel, Paßword, Anzahl der freien 
Sektoren, die erste freie Spur, den 
ersten freien Sektor sowie das For- 
mat der Diskette. 


Wo steht was? 


Als weitere Information zeigt das 
Programm an, in welchem Track 
und Sektor sich welches File befin- 
det. Wählt man das entsprechende 
‚Menti, erfährt man, um welchen Typ 
es sich bei dem File handelt (DATA, 
BASIC oder CODE), außerdem die 
Programmlänge (bei Basic), die 
Start-und Ladeadresse und die File- 
nummer. 

Durch einen Sektordump, der alle 
Operationen wie das Ansehen, Än- 
dern und Schreiben in vorhandene 
Sektoren umfaßt, ist es möglich, Sek- 
tor um Sektor, Track für Track abzu- 
fragen und dabeisselbsteinzelne By- 
teszu verändern. Ein Bildschirmedi- 
tor vereinfacht dabei die Bedie- 


ung. 
Die Besonderheit an diesem Utili- 
ty ist es, einmal ERASEte Files wie- 


der sichtbar zu machen. Da auch 
diejenige Files, die durch CAT nicht 
erscheinen, sich immernoch aufder 
Diskette befinden und bei der Aufli- 
stung genannt werden, dürfte das 
jetzt keine Schwierigkeiten mehr be- 
reiten. Man erkennt die ERASEten 
Files an einem Copyright-Zeichen 
an erster Stelle des Filenamens. 
Durch einfaches Ändern dieses Na- 
mens, wobei selbst diese Operation 
menügesteuert ist, erscheint das Fi- 
le wieder im Katalog der Diskette. 

Den einzigen Fehler, den man 
nicht machen darf, wenn man durch 
ERASE aufder Diskette Platzschafft, 
ist, MOVE zu betätigen, denn dann 
sind wirklich alle ERASEten Files für 
immer verloren. Dann nützt esauch 
nichts mehr, die ausführliche deut- 
sche Bedienungsanleitung, die je- 
dem Programm beigefügt ist, ge- 
nauestens zu lesen oder die sechs 
Menüs dieses Programms, die esso 
bedienungsfreundich machen, 
nach einer Möglichkeit durchzustö- 
bem, Die Diskette bleibt, wie ihr Ka- 
talog aussieht: leer. 


Programmerweiterungen 
gewünscht? 


Die beiden anderen Programme, 
die hier vorgestellt werden sollen, 
sind im Grunde Floppy-adäquate 
Erweiterungen zu schon bestehen- 
den Programmen: Multitas zum Tas- 
word und Multipas zum Highsoft 
Pascal. Beide laufen ohne die 
Orginal-Programme nicht, bieten 
dafür eine Vielzahl von neuen An- 
wendungen. So ist es zum Beispiel 
mit Multipas möglich, DOS-Befehle 
aus dem Compiler aufzurufen und 
die Include-Funktion auf Diskette 
ausführen zu lassen. Beim Multitas 
wurde die Option für die Blockver- 
schiebung stark verbessert und die 
Funktion, nach bestimmten Worten 
im Text zu suchen, wesentlich be- 
‚schleunigt. 

Hinzu kommt noch, daß das Tas- 
word mit Hilfe von Multitas völlig ein- 
gedeutscht wird, sogar die Helpsei- 
ten. Was die Umlaute anbetrifit, so 
liegen sie jetzt da, wo sie liegen sol- 
len: das ä auf dema, das ö aufdem 
ound so weiter (auch im 32-Zeichen- 
Modus). 

Summasummarum, betrachtet 
man diese bedienungs- und anwen- 
derfreundlichen Programme, so ge- 
hen Beta-Disc-Floppy-Besitzer rosi- 
gen Zeiten entgegen... Weitere An- 
wenderprogramme dieser Qualität 
sind bereits in Vorbereitung. 

(Karina Krawczyk) 


Goldene Diskette 


Goldene Diskette für 


Lernprog 


rımm auf dem 


Sindair ZX Specdhrum 


Im Wettbewerb um die Goldene Diskette für hervor- 
ragende Programmierleistungen kam auch ein Pro- 
gramm für den Spectrum zu Ehren. Geschrieben 
wurde das Geografie-lernprogramm Geomat von 


dem siebzeh 


rigen Schüler Olaf Hartwig, der zu- 


sammen mit fünf anderen Preisträgern auf der 
diesjährigen Hannover-Messe ausgezeichnet wurde. 


ie viele Tage ich gebraucht 
habe, um Geomat zu schrei- 
ben? Der 17 Jahre alte Preis 


träger im Wettbewerb um 
dene Diskette 1985, Olaf Hartwig, 


überlegt keinen Moment: »14 Tage 
und Nächte, dann stand das Pro- 
gramm«, 

Olaf, Gymnasiast aus Reinhards- 
hagen an der Ostsee, zählt zu den 


Einer der Sieger im Wettbewerb um die Goldene Diskette: Olaf Hartwig (17) aus 


Reinhardshagen (Programm »Geomat«). 


In Vortretung des Bundesministers für Forschung und Technologie, Dr. Riesenhuber, 
überreicht Dr. Donth die Auszeichnung. Außerdem erhält Olaf einen Computer der 


Firma Compag. 


sechs Jugendlichen, die für hervor- 
ragende Leistungen vom Bundesmi- 
nisterium für Forschung und Tech- 
nologie ausgezeichnet worden sind. 
Zusammen mit fünf weiteren Preis- 
trägern im Alter zwischen 12 und 19 
Jahren erhielter im Informationszen- 
trum Jugend und Technik der Han- 
nover-Messe einen Preis für das be- 
ste Lernprogramm — Geomat für 
den Spectrum. 

Begonnen hatalles vor sieben Jah- 
ren. Auf Initiative des Physiklehrers 
am Klaus Harms Gymnasium in Kap- 
peln lernte Olaf das Programmie- 
zen. Als er sich vor zwei Jahren ei- 
nen Taschenrechner für die Schule 
kaufte, fing er an, in Basic zu pro- 
grammieren. Bald fand er heraus, 
daß er kleinere, ganz einfache Pro- 
gramme an Freaks weiterverkaufen 
und damit sein Taschengeld aufbes- 
sern konnte. Von diesen Einnahmen 
kaufte er sich einige Monate später 
seinen ersten richtigen Computer, 
den Sinclair ZX Spectrum. 

Nun stand den Programmierbe- 
mühungen von Olaf nichts mehr im 
Wege, Er entwickelte für den Spec- 
trum Arcade und Adventure Games 

meist mit 3D-Grafik — neuartige 
Tools, Utilities, Grafik — und Sound. 
Erweiterungen. 


Aber auch bereits kommerzielle 
Anwendungen. Da gibt es beispiels- 
weise ein Trennungsprogramm, mit 
dem man laut Olaf »die komplizier- 
ten DudenTrennungsregeln ein für 
allemal vergessen kann«. Oder der 
Finance Manager, der bis zu fünf 
vi 'hiedene Konten parallel führt 
und einen ständigen Überblick 
über das gesamte Guthaben und 
aktuelle Einzelkontenstände gibt. 

Die rund 40 Programme und Er- 
weiterungen stellte der Gymnasiast 
in einem Katalog zusammen, melde- 
te ein Gewerbe an und inserierte in 
Computerzeitschriften 


Gewerbliche Nutzung 


Die Taschengeld-Einnahmen stie- 
gen, halten sich aber in Gren; 
weil Olafseine Zeit noch auf vielfälti- 
ge andere Interessen verteilt. Er 
spielt Gitarre, absolviert sein tägli- 
ches Jogging-Programm, fotogra- 
fiert und surft den Sommer über auf 
der nahen Ostsee, Geme hört er 
auch englis Sender über 


lang. 

Und dennoch: im stillen Kämmer- 
lein arbeitet er bereits an einem 
Buch über künstliche Intelligenzfor- 
schung, Olaf Hartwig: »Es geht dar- 
um, wie man den Computern das 
Denken beibringen kann.« 


Sonderheft Spectrum’ 


Daten-Verbindungen 


Und mit einigem Stolz weist er auf 
seinen zweiten Platz hin, den er im 
Landeswettbewerb Schleswig Hol- 
stein »Jugend forscht« für ein statisti- 
sches Analyse-Software-Paket er- 
halten hat. Auf dem Spectrum ent- 
wickelte er die Spracheingabe. Vom 
VDI und Landeskultusminister er- 
hielt er zusätzlich den Sonderpreis 
für die originellste und kreativste 

beit. 

Für die Zukunft hat der vielseitige 
‚Schüler bereits feste Pläne. Im Früh- 
jahr 1986 Abitur — Leistungsfächer 
in der Schule sind Mathematik und 
Chemie — dann ein Informatikstudi- 
um. Achja, und dann natürlich Ame- 
rika, ein Aufenthalt im Mutterland 
der Bits und Bytes. (mk) 


Geomat für den 
Spectrum 

Das für den Spectrum ge- 
schriebene Programm Geomat 
ist ein Geographie-Lernpro- 
gramm, dasnicht nur Wissen ver- 
mittelt und abfragt, sondem auch 
selbst fähig ist, zu lernen. Zu- 
nächst einmal dient das insge- 
samt dreiteilige Programm als 
elektronisches Geographie- 
Lexikon. Einzelne Länder mit 
wichtigsten Daten werden auf ei- 
ner farbigen Weltkarte darge- 


Der zweite Teil besteht aus ei- 
nem Wissenstest, der dritte Teil 
schließlich ermöglicht es, das 
Programm geografische Tatbe- 
stände erraten zu lassen. Diesge- 
schieht über Suchbäume, die 
zum Teil der Entwicklung von Ex- 
pertensystemen entlehnt sind. 
‚Wenn das Programm einen Be- 
griff nich errät, fragt es selbst da- 
nach und nach Kriterien, unter 
denen es den Begriff beim näch- 
sten Ablauf in sein Wissen ein- 
bauen und abfragen kann. Das 
Programm ist sehr gut dokumen- 
tiert und nutzt die Möglichkeiten 
des Computers voll aus. 


Daten-Verbindungen 


Wenn Sie mehr aus Ihrem Spectrum herausholen 
wollen, müssen Sie wissen, wie dieser an welcher 
Schnittstelle Daten zur Verfügung stellt. Als Lohn 
des Fleißes locken neue Verbindungen. 


er Spectrum kann in Verbin- 

dung mit dem Interface 1 auf 

drei Arten mit Peripheriegerä- 
ten oder auch mit anderen Compu- 
term kommunizieren: über Kasset- 
tenrecorder-, RS232- und Netzwerk- 
schnittstelle. Am einfachsten zu rea- 
lisieren ist die Verbindung über die 
RS232-Schnittstelle. Diese erlaubt 
sowohl das Senden wie auch das 
Empfangen von Daten. Außerdem 
ist die serielle Schnittstelle fast ge- 
normtund die dafürnötige Software- 
anpassung kann auch ein Anfänger 
in Basic erstellen. Schwieriger ist 
die ganze Sache mit dem Network- 
anschluß. Der Datentransfer erfolgt 
hier mit 16 KBaud am schnellsten, 
aber wesentlich komplizierter. Oh- 
ne Maschinensprachekenntnisse ist 
nichts zu machen, 

Nur für echte Freaks ist das Kas- 
setteninterface zur Datenübertra- 
gung zu empfehlen. Sowohl von der 
Hardware, wie auch der Software 
müßen sehr qute Kenntnisse vorlie- 


gen. 
V.24=seriell 


Da viele Computer über eine se- 
rielle Schnittstelle verfügen, ist das 
Übertragen von Daten und Pro- 
grammen mit dem seriellen Aus- 
gang des Interface 1 häufig anwend- 
bar. Nach dem Starten des Spec- 


Kr ee 


trum ist bei dem Interface 1 immer 
die Übertragungsgeschwindigkeit 
von 9600 Baud eingestellt. 

„Insgesamt stehen alternativ neun 
Übertragungsgeschwindigkeiten zur 
Verfügung 50, 110, 300, 600, 1200, 
2400, 4800, 9600 und 19200 Baud. Da- 
von abweichende Baudraten wer- 
den in der Praxis nur selten verwen- 
det, können aber über Maschinen- 
codeprogramme erzeugt werden. 
‚Wählt man aus dem Basic heraus ei- 
ne Baudrate die zwischen den nor- 
malen Werten liegt, so reduziert das 
Betriebssystem des Spectrum den 
‘Wert auf den nächsten darunterlie- 
genden. Aus FORMAT "t";150 wird 
110 Baud. Da zwischen den Bytes 
kurze Pausen nötig sind, ist die tat- 


sächliche Geschwindigkeit unter 
der angegebenen. 
Mit der Befehlsequenz »FOR- 


MAT'"'b";300« setzt man den "b" 
Mode, sowie die Baudrate. Durch 
die Gerätekennung "b" oder "t" 
wird zwischen dem 7 Bit’Textmode 
oder dem 8 Bit-Datenmode gewählt. 

Die häufigste Anwendung findet 
der "t"Mode zum Ansteuern von 
Druckern. Dieser 7 Bit-Mode igno- 
riert alle Steuerzeichen außer CR, 
(aus dem CR und LF wird) der den 
Zeilenvorschub bewirkt. Grafikzei- 
chen setzt er in Fragezeichen um 
und für die Basic’Tokens (den 
Schlüsselworten auf den Tasten) 


werden die entsprechende Worte 
ausgegeben. Der "t!Mode erleich- 
tert es, Programmlistings des Spec- 
trum auf andere Computer zu über- 
tragen und dort zu bearbeiten. 
Dazu benötigt man eine Übertra- 
gungssoftware, wie das Programm 
»MOVE ITk für den IBM-PC oder 
»Async« für den Apricot PC. Die 
Übertragung erfolgt mit dem Kom- 
mando LLIST. Das komplette Pro- 
grammlisting läßtsich anschließend 
mit einem Textverarbeitungspro- 
(gramm bearbeiten. Ein Listing wie- 
der in den Spectrum zu übertragen 
und ablaufen zu lassen ist nicht mög- 
lich, da die Systemvariablen und 
‚Ablaufvariablen fehlen. Aber Li- 
stings, die ja auf eine Zeilenbreite 
von 32 Zeichen begrenzt sind, kön- 
nen im 80-Zeichen-Mode einer Text- 
verarbeitung sehr gut mit Kommen- 
taren versehen und ausgedruckt 
werden. Das Senden von Dateien 
erfolgt nach dem gleichen Prinzip 
mit »PRINT#3;a$«. 


»b« gleich Binär 

Um Datenblöcke, Speicherblöcke 
oder Programme zu senden oderzu 
empfangen, verwendet man den 
"b"Mode. Damit überträgt man 
‘Werte zischen 0 und 285, Das er- 
möglicht es, Programme ablauffähig 
zu übertragen. Es muß nur der ge- 
samte Speicherbereich von den Sy- 
stemvariablen bis zum Programm- 
ende übertragen und auch wie- 
der zurückgeladen werden. Diese 
‚Werte lassen sich einfach ermitteln. 
»PRINT PEEK 23641 + 256*PEEK 
23642« ergibt den Wert der System- 
variablen E_LINE, derEndadresse 
des Programms und der Variablen. 
Der Anfang der Systemvariablen 
liegt immer bei 23552, Von dem aus 
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der Variablen E_LINE ermittelten 
"Wert zieht man 23552 ab und hat die 
Länge des Programms. Um das Pro- 
gramm zu übertragen, öffnet man 
den Kanal 3 mit dem Befehl 
»OPEN#3;"b'k. Nun setzt man den 
empfangenden Computer in den 
WAIT-Mode, also empfangsbereit, 
und gibt »SAVE*"b"CODE 23582, 
(Länge des Programms)« ein. 

Der Programmname wird vom 
empfangenden Gerät bestimmt. 
Diese Befehlsfolge kann auch in ein 
Programmlisting eingebunden sein. 
Empfängt der Spectrum dieses Pro- 
gramm, geht der Programmlauf 
beim folgenden Befehl weiter, das 
Programm ist selbststartend! Zu be- 
achten ist dabei eines: Zwischen 
RAMTOP (PRINT PEEK 23730 + 
256*PEEK 2373]) und STK_END 
(PRINT PEEK 23653 + 256*PEEK 
23654) müssen mindestens 1] Byte 
frei sein für die temporären Varia- 
blen. Diese enthalten die Start- 
adresse, die Kennung für 7 oder 8 
Bit-Mode, Ein- und Ausgabeadresse 
sowie die Zahl der belegten Bytes. 
Das Betriebssystem gestattet es, bis 
zu 16 Kanäle gleichzeitig zu öffnen. 
‚Wobei die Kanäle 0 bis 3immer vom 
System belegt sind. Der Druckerka- 
nal kann ohne Probleme benutzt 
werden, Auf diesen sprechen auch 
die Druckbefehle LLIST und 
LPRINT an. Hilfreich ist das öffnen 
von zwei Kanälen für das Aussenden 
von Steuercodes für den Drucker 
und dem Senden von druckbaren 
Zeichen. Für das erstere werden 8 
Bit benötigt und für das zweite 7 Bit. 
Auch beim Datensenden kann das 
nötig sein, da das Async-Programm 
für die Apricots zum Beispiel Cha- 
racter 26 als Endeerkennung benö- 


tigt. 
Manche Computer senden auch 
nach der Enderkennung noch Da- 
ten. Das kann ein Grund für Fehler 
bei der Datenübertragung sein. 
Empfehlenswert ist es dann, eine 
niedrigere Baudrate zu wählen, um 
die Fehlerquote zu senken. Bei der 
Übertragungsgeschwindigkeit von 
19200 Baud ist die theoretische Bit- 
länge 182,3 Takte (1 Takt = V/ 
3500000 Sekunde). Die tatsächliche 
Zeit ist aber 177 Taktzyklen. Das be- 
deutet einen Fehler von zirka 3 Pro- 
zent. Je kleiner die Baudrate ist, de- 
sto geringer ist auch der Fehler. Lei- 
der ist es dennoch oftmals erforder- 
lich, eine Baudstufe niedriger als 
angenommen zu wählen. 


RS232-Verkabelung 


Die RS232-Hardware besteht aus 
sechs Leitungen. Zwei werden zum 
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Senden benutzt, zwei beim Emp- 
fang, einer als Masseleitung und 
der letzte für die Versorgungsspan- 
nung. Die erste Leitung wird zum 
Senden benutzt und heißt RXDATA 
oder RECEIVE DATA. Die zweite 
Leitung nennt man DTR oder DATA 
TERMINAL READY, sie wird vom 
empfangenden Gerät benutzt, das 
hier mitteilt, ob es bereit ist Daten 
zu empfangen. Das Senden eines 
Byte geht folgendermaßen vor sich. 
DTR wird auf Highpegel gelegt und 
erst dann das Datenbyte übertra- 
gen. Für jedes Zeichen werden 11 
Bits gesendet: Ein Startbit, acht Da- 
tenbits und zwei Stopbits. Die Be- 
zeichnung der dritten Verbindung 
lautet TXDATA oder TRANSMIT DA- 
TA. Das Gegenstück zur zweiten Lei- 
tung nennt sich CTS oder CLEAR 
TO SEND. Das Empfangen läuft wie 
folgt ab; In der Betriebssystemvaria- 
ble SER FL wird geprüft, ob der 
Spectrum empfangsbereit ist. Das 
wird durch die Abfrage auf un- 
gleich Null gemacht. Anschließend 
setzt er CTS auf Highpegel, wartet 
auf das Startbit der TXDATA-Lei- 
tung, ließtanschließend die acht Da- 
tenbits und speichert dieses Byte 
ab. Nun setzt er CTS auf Lowpegel. 
Jetzt dürfte kein Zeichen mehr ge- 
sendet werden, einige Computer 
tun das leider doch. Deshalb wird 
'TXDATA weiterhin überprüft, 
Kommt ein weiteres Zeichen, erfolgt 
wieder: Lesen der Datenbits und 
speichern in das höherwertige Byte 
von SER FL, das niederwertige wird 
auf 1 gesetzt, 


Ins Netz gegangen 

Das lokale Netzwerk stellt eine 
schnelle und unkomplizierte Mög- 
lichkeit dar, zwischen Spectrum 
oder/und Sinclair QL einen Daten- 
transfer durchzuführen. Bis zu 64 
Sinclair Computer können zu einem 
Netzwerk zusammengeschlossen 
werden. Schaltet man den Spectrum 
(mit Interface ]) ein, so setzt das Be- 
triebssystem des Interface 1 die Sta- 
tionsnummer auf 1. Werden nicht 
mehr als zwei Geräte verbunden, 
braucht die Stationsnummer nicht 
geändert werden. Beimehr alszwei 
Computern können Daten an eine zu 
bestimmende Station gesendet wer- 
den, die auch nur diese empfangen 
kann. Die Stationsnummern gehen 
von 1 bis 64. Die Nummer 0 dient 
zum Senden an alle Computer im 
Netz. Jeder Computer, der auf Emp- 
fang geschaltet ist, empfängt diese 
Daten. Das Ändem der Stations- 
nummer erfolgt mit dem FORMAT- 
Befehl. »FORMAT "n'2« setzt die 


Stationsnummer 2. Ein Computer 
darf auch mehrere Stationsnum- 
mern haben, etwa eine zum Senden 
von Daten und eine zum Empfangen 
von Programmen. 

Das Übertragen geht mit den übli- 
chen Befehlen vor sich: »SAVE*'n” 
‚2« überträgt an Station 2 ein Pro- 
gramm, »LOAD*"n',0« lädt das Pro- 
gramm. Programmnamen sind nicht 
notwendig. Eine Sendung an alle 
Computer im Netzwerk, Empfän- 
gerstation 0, überträgt der Spec- 
trum zirka vier mallangsamer als ei- 
ne direkt adressierte Sendung. Er 
wartet auch nicht auf eine Bereit-zu- 
Empfangen-Mitteilung, sondern 
sendet einfach die Daten. Wer zu 
diesem Zeitpunkt noch nicht bereit 
war, geht leider leer aus. Die üb- 
lichen Anhängsel wie LINE, 
SCREENS, DATA und CODE können 
weiterhin verwendet werden. 


Mit vier Befehlen 
alles im Griff 


Um Daten direktzu Senden undzu 
Empfangen stehen die Befehle 
OPEN#, INPUT#, INKEY$# und 
CLOSE# zur Verfügung. 

»OPEN #4;"n";2« öffnet den Kanal 
4 und weist ihn dem Spectrum mit 
Stationsnummer 2 zu. Station 2 muß 
auch einen Kanal für die Eingabe 
öffnen, »OPEN #5;'n”;l«. Um Daten 
zu Senden verwendet man die Kom- 
mandos PRINT# und LIST#. LIST# 
überträgt das Programmlisting, 
PRINT # überträgt Zeichen und Va- 
riable. Ablauffähig ist ein übertrage- 
nes Programm natürlich nur auf ei- 
nem Spectrum, der Sinclair QL ver- 
wendet Superbasic. Diese Program- 
miersprache ist dem Basic-Dialekt 
des Spectrum zwar sehr ähnlich, 
aber Programme laufen leider nicht 
ab. Benutzt man zum Einlesen IN- 
KEY$#,somuß man aufeine Beson- 
derheit achten: Der Spectrum gibt, 
wenn kein Zeichen von der Sende- 
station kommt, ein CH$X0) aus, Die- 
ses Problem läßt sich sehr einfach 
umgehen, indem man auf CHR$(0) 
abfragt und nur ungleich CHR$(0) 
anzeigen läßt. 


Zwei Leitungen reichen 

Das Netzwerk arbeitet nur mit 
zwei Leitungen. Eine Leitung davon 
ist Masse, die andere ist die Signal- 
leitung; aktiv liegt sie auf +5 Volt, in- 
aktiv auf Masse. 

Benutzt man das Netzwerk, sosen- 
det es als erstes einen Startimpuls 
und die Stationsnummer aus. Diese 
Daten werden langsamer übertra- 


ae ee 


Daten-Verbindungen 


gen, als die Übermittlung ansonsten 
vor sich geht. Die Übertragung der 
Stationsnummer geht in umgekehr- 
ter Reihenfolge vor sich, also die Bit 
7 zuerst, Bit 0 zum Schluß. Jedes Bit 
wird überprüft, ob es vom Netzwerk 
angenommen wurde. Ist das Netz- 
werk gerade belegt, so wird der 
ganze Vorgang wiederholt. Nach- 
dem diese Vorabinformationen ge- 
sendet und angenommen wurden, 
muß der Vorspann ausgesandt wer- 
den. Der Vorspann enthält: 


Vorspann-Inhalt 


Die Nummer der Gegenstation, 
die eigene Stationsnummer, eine 
Blocknummer (0-65535), Ende-der- 
Datei Kennung (l = Daten, 0 = En- 
de), Länge des Puffers (255 beim 
Senden, 0 beim Empfang), Prüfbyte 
der Daten (8-Bit Quersumme), Prüf- 
byte des Vorspannes (8-Bit Quer- 
summe der 7 Vorspannbytes), 

Nur beim Empfangen: 
Speicheradresse des letzten Bytes 
aus dem Puffer, Anzahl der verblei- 
'benden Bytes im Speicher. 

Das Aussenden des Vorspannes 
‚erledigt die OUTPAK-Routine in fol- 
gender Abfolge: 
ein aktiver Vorimpuls, 
ein inaktiver Startimpuls, 
ein aktiver oder inaktiver Impuls 
für jedes Bit, 
ein aktiver Stopimpuls, 

Netzwerk inaktiv schalten. 

Ist das Aussenden beendet, prüft 
‚die Routine den Inhalt der Systemva- 
Yiablen NCHRIS, die Stationsnummer 
des Empfängers. Steht hier als Emp- 
fänger 0, wartet das Systern nicht, 
sondern sendet sofort weiter. An- 
sonsten sendet die OUTPAK- 
Routine der gezielt angesproche- 
nen Station den Wert 1 als Quittung. 
Kommt innerhalb einer bestimmten 
Zeit nicht die Quittung von der Emp- 
fangsstation, so sendet der Spec- 
trum die Belegungsprüfung und 
den Vorspann noch einmal und war- 
tet wieder auf die Antwort, Ange- 
zeigt wird das durch die gleichblei- 
bende Bildrandfarbe. 


Viele Prüfungen 


‘Wenn der Vorspann empfangen 
wurde, laufen im System umfangrei- 
che Prüfungen ab: Ist der Vorspann 
acht Byte lang? Ist die Quersumme 
der ersten sieben Bytes richtig (Ach- 
tes Byte)? Ist die Blocknummer 
(NTNUMB) richtig? Wenn an Station 
0 gesendet wurde muß NTDEST 
und NCIRIS gleich sein, wenn nicht 
dann NTDEST und NCSELF. Ist die 
Nummer der Sendestation richtig 


(also NTSRCE und NCIRIS gleich)? 
Bei einer Sendung an alle Netz- 
werkteilnehmer erfolgt keine Rück- 
meldung. Wird an eine bestimmte 
Station gesendet, muß eine Mel- 
dung erfolgen. 


Kommt die richtige Antwort, über- 
trägt die OUTPAK-Routine den er- 
sten Datenblock. Das E-Register 
enthält die Menge der Bytes (NCB), 
das HL-Register die Anfangsadres- 
se des Puffers. 

Die Datenblöcke werden von 
0-65535 numeriert. Öffnet man einen 
Netzwerkkanal, setzt das den ersten 
Block auf 0. Der letzte Block enthält 
nur die Ende-der-Datei-Kennung. 
Versuchen mehrere Computer sich 
gleichzeitig im Netzwerk anzumel- 
den, sowird der mitder niedrigeren 
Stationsnummer bevorzugt. 


Zeit im Griff 

Hier einige technische Daten 
über den Zeitablaufbeim Netzwerk: 
Bei der Vorbelegung prüft der 
Spectrum etwa 10500 Takte (3 ms) 
des Netzwerks auf aktive Impulse. 
Wird keiner festgestellt, gilt das 
Netzwerk als nicht belegt. Der Vor- 
impuls im Belegungsversuch startet 
22 Takte nach der Freiprüfung. Die- 
ser dauert 181 Takte, genau wie die 
Übertragung der 8 Bits der Stations- 
nummer. Nach 136 Takten werden 
die Impulse zur Überprüfung zu- 
rückgelesen. Nun gilt das Netzwerk 
als belegt. Nach einer Zeit von 271 
Takten werden die acht Bytes des 
Vorspannes übertragen. Das Über- 
tragen des Vorspannes läuft nach 
folgenden Muster ab: 98 Takte dau- 
ert der Vorimpuls, 40 Takte für den 
Startimpuls, 40 Takte für jedes der 
acht Datenbits, 145 Takte dauert der 
Stopimpuls, zirka alle 7000 Zyklen (2 
ms) prüft der Spectrum den Freizu- 
stand des Netzwerkes. Anschlie- 
‚Bend untersucht er es alle 55 Takte 
aufeinen aktiven Impuls. Sowirdeein 
Vorimpuls bei einem Belegungsver- 
‚such immer in seinem ersten Drittel 
‚erkannt. Anschließend ruft er, umzu 
empfangen, die INPAK-Routine auf. 
Sie empfängt diese acht Byte des 
Vorspanns. Der Einsprung erfolgt in 
der inaktiven Phase von 271 Takten 
zwischen Belegungsanforderung 
und Vorspann. Anschließend unter- 
sucht das System alle 35 Taktzyklen 
des Netzwerks, um einen Vorimpuls 
zu finden. Nun synchronisiert sich 
die Hardware auf die abfallende 
Flanke des Signals beim Beginn des 
ersten Startimpulses. Die Unsicher- 
heitbeiderFlankenerkennung wird 
dadurch aufein Minimum reduziert. 


Der richtige Takt 


Die Datenbits werden jetzt mit 40 
Takten pro Bit eingelesen. Dabei ist 
eine hardwarebedingte Abwei- 
chung von 8 Prozent bei der Taktire- 
quenz möglich, nimmt aber keinen 
negativen Einfluß auf die Übertra- 
gung. Wenn alle acht Vorspannby- 
tes empfangen wurden, müssen sie 
geprüft werden. Istes eine Sendung 
an Station 0 wird keine Quittung er- 
teilt. Innerhalb der nächsten 600 
Takte wird der Spectrum dann den 
Datenblock empfangen. Ist die Sen- 
dungan eine Station adressiert, muß 
die Empfangsbestätigung innerhalb 
von 9000 Takten erfolgen. Anson- 
sten wiederholt der Sendecomputer 
den Block. Enthält ein Block ein By- 
te, dauert das Senden 544 Takte, bei 
255 Byte sind es etwa 128000 Takte 
(87 ms). 


Daten nur für Recorder 


Die Kassettenrecorderschnittstel- 
le zur Datenkommunikation zu be- 
nutzen, ist nicht zu empfehlen, da 
sich einige Fehler einschleichen 
können. Wird ein Programm auf 
Kassette geSAVEt, so erfolgt zuerst 
ein Signal von rund Sekunden. Der 

Spectrum sendet keine Daten, son- 
dern gibt der Aufnahmeautomatik 
Zeit, sich auf die richtige Lautstärke 
einzupegeln. Anschließend über- 
trägt er den Vorspann oder Header. 
Dieser enthält den Programmna- 
men. Es werden immer die vollen 10 
Byte des Namens übertragen. Das 
nächste Byte enthält eine Kennung, 
die besagt ob es sich um ein Pro- 
gramm, einen Screen (also Bild- 
schirminhalt), einen Datenblock 
oder einen DATA-Bereich handelt. 


Mit Köpfchen 

Anschließend erfolgt die Übertra- 
gung der Felder für die Adresse, ab 
der gespeichert wurde und die Län- 
ge des Programmes und ab welcher 
Zeilennummer das Programm 
selbst starten soll. Steht in diesem 
Feld 0, startet das Programm nach 
dem Einlesen in den Rechner nicht 
selbst. Bei einer Programmübertra- 
gung steht die Adresse, ab der das 
Programm eingelesen wird, fest. 
Wird ein Bildschirminhalt mit der 
Zusatzfunktion SCREEN$ gespei- 
chert, so stehen nicht nur Anfang, 
sonder auch die Länge fest (6912 
Byte => 24*256 Byte für den 
Graphik- und 768 Byte für den Farb- 
speicher). Ansonsten müssen diese 
Werte ermittelt werden. Die Über- 
tragung erfolgt Bitweise. Wird der 
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Bitwert 0 gesendet, entspricht die 
Übertragungszeit (der Impuls) 855 
Taktzyklen, enthält der Bit Wertig- 
keit 1, so dauert der Impuls 1710-Zy- 
klen, also genau die doppelte Zeit. 
Nach dem Sendevorgang eines 
Blocks wird ein Kontrollbyte über- 
tragen, daß auf einer OR-Abfrage 
basiert, Dieses Kontrollbyte war 
beim ZX81 verantwortlich, wenn der 
Rechner das ganze Programm gele- 
sen und dann gelöscht hatte. Erführ- 
te diese Abfrage einmal durch, und 


bei negativen Ergebnis löschte er 
den gesamten Speicherbereich 
durch Restart 0. 

Der Spectrum macht das nicht, 
das heißt ein Programm, daß beim 
verifizieren eine Fehlermeldung 
verursacht hat, kann trotzdem wie- 
der eingelesen werden. Ob es ab- 
lauffähig ist, muß sich dann erst zei- 
gen 

Die Recorderschnittstelle ist 
durch die Hardware nur zum Sen- 
den und Empfangen von ganzen 


Blöcken geeignet und nicht zum 
Handshakebetrieb, wie die RS232- 
oder Netzwerkschnittstelle. 
Dadurch, daß die Stromabgabe 
bei zirka 0.2 Volt und die Stromauf- 
nahme bei zirka 1 Volt liegt, müßte 
man mit zusätzlicher Hardware ar- 
beiten. Die Toleranzliegt bei etwa 10 
Prozent. Nach spätestens 1100 Zy- 
klen muß der Spectrum die nächste 
Flanke empfangen, wenn es zu kei- 
nem Fehler kommen soll. 
(Horst Brandl) 


® ® 
Microdrive-Express 
Möchte man die Ladezeiten beim Commodore- 
Laufwerk verkürzen, ist dies nur mit reichlichem 


finanziellen Aufwand zu erreichen. Bei den 
ectrum-Microdrives bekommt man diese 


gegen Datenverlust. 


U berdie Sinclair-Microdrivesist 


viel geschrieben worden, und 
nicht alles davon war übermä- 
Big positiv. Diesem Speichermedi- 
um haftet der Rufan, Daten und Pro- 
gramme möge man ihnen besser 
nicht anvertrauen, da es leicht zum 
Verlust führen könne. Sicher wird 
diese Meinung nicht von allen Be- 
nutzem geteilt und bei mir kommt 
nach einjähriger intensiver Benut- 
zung der Microdrives ein wenig der 
Verdacht auf, daß dieses Gerücht 
von Fall zu Fall ebenso überprüft 
werden sollte, wie die ‚Tatsaches, 
daß Käse dumm mache, 
Auch die Sinclairbemühtsich, das 
lädierte Image der Microdrives ein 
wenig aufzupolieren. So verkündet 
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glichkeit frei Haus und schützt sich auch noch 


man, daß mittlerweile die Verläßig- 
keit der Microdrives so groß ist, daß 
bei bis 50000-fachem Zugriff kein 
Datenverlust beobachtet wurde. 
Wie immer die Sache aussieht, im 
Prinzip sind die Microdrives eine 
preiswerte Alternative zu Disketten- 
stationen. Mittlerweile erhält man 
das Interface ] und zwei Laufwerke 
für rund 600 Mark, was etwa dem 
Preis eines Commodore-Laufwer- 
kes entspricht. Die Speicherkapazi- 
tät beträgt in beiden Fällen etwa 170 
KByte, jedoch erhält man bei Sin- 
claireine RS232-Schnittstelle kosten- 
los dazu. Darüber hinaus sind die 
Lade- und Schreibzeiten bei Micro- 
drives etwa lOmal kürzer als beim 
Commodore-Laufwerk. 


3x run und 2x 
Tasword auf einem 
Cartridge 


Weiterhin ist es natürlich sehr an- 
genehm, zwei Laufwerke zu haben, 
wenn man an praktische Arbeit wie 
Kopieren denkt. Für jeweils weitere 
200 Mark lassen sich bis zu insge- 
samt 8 Laufwerke an den Spectrum 
anschließen, was zu einem Zugriff 
auf über 640 KByte führen würde, 

Seit März sind nun die Preise für 
die Microdrive-Cartridges dra- 
stisch gesenkt worden. Damit 
kommt eine denkbar einfache Mög- 
lichkeit zum Tragen, die Zugriffszeit 
auf die Microdrives zu verkürzen 
und dabei auch noch etwas für die 
Datensicherheit zu tun. Einziger 
Nachteil dieses »Microdrive-Ex- 
pess« ist, daß die auf diese Art gesi- 
cherten Programme und Daten etwa 
doppeltso viel Platzaufder Kassette 
in Anspruch nehmen. 

Da man aber in der Regel die Ka- 
pazität gar nicht vollausnutzt und die 
Methode nur für die am häufigsten 
benutzten Files beziehungsweise 
wichtigsten Programme anwenden 
muß, istdies wohl kaum ein entschei- 
dender Nachteil. 

Der Trick ist ganz einfach, man si- 
chert das entsprechende Pro- 
gramm einfach zweimal (oder noch 
häufiger) auf das Cartridge Nun 
läßt der Spectrum das nicht so ein- 
fach zu, nach dem ersten Sichern er- 
scheint die Meldung »Writing to a 
read file«. Dies läßt sich jedoch ein- 
fach umgehen. In der Speicherstel- 
le 23791 steht eine Systemvariable, 
die die Anzahl der auf Microdrive 
durchgeführten Kopien angibt, also 
in der Regel eine 1. Geben wir vor 
dem Sichern ein »POKE 2379],2«, so 
werden tatsächlich zwei Kopien an- 
gefertigt. Natürlich können auch 
nach Belieben drei, vier oder mehr 
Kopien angefertigt werden. 

Lädt man nun ein gesichertes Pro- 
gramm wieder, verkürzt sich die Zu- 
griffszeit in der Tat ganz erheblich, 
weiterhin sind die Daten mehrmals 
aufder Cassette und sind so gegen 
Verlust besser geschützt. 

(PC. Bosetti) 


PEEK & POKE 


PEEKs und POKEs 


Tips, die das leben eines Programmierers erleich- 
tern helfen und (leider) nicht im Handbuch stehen. 


Umgehen der Meldung »Start tape, 
then press anny key.« 1000 FOR a=1 
TO 5: PRINT a: SAVE n$(a): PAUSE 
150: POKE 23736,181: NEXT a 

utz: 

Wenn das Basicprogramm als Co- 
de abgespeichert wurde, dann gibt 
man als erste Zeile ein: 1 LOAD 
"CODE 24000:POKE 23635,139:PO- 
KE 23636,94: LIST 

Fehlerrücksprungadresse ändern: »POKE 
23614,100« in die erste Programmzei- 
le bringen. Das Programm muß mit 
"LINE" gesaved werden. 

‚Programmstartadresse: 

PRINT PEEK 23635+256*PEEK 
23636 (normalerweise 23755) 

Erste Basiczeile auf Null setzen: 

LET a=PEEK 23637+256*PEEK 
23638:POKE a,0:POKE a+1,0 

POKE 23756;x: Setzt erste Zeile im 
Programm auf Zeilennummer x. 
‚Wenn kann nicht mehr (so 
leicht) gelöscht werden. Der POKE- 
Befehl kann natürlich dazu benutzt 
werden, das Ganze rückgängig zu 
machen. 

RAMTO! 


PP: 
PRINT PEEK 23730+256*PEEK 
23731 (maximal: 32767 bei 16 KByte 
beziehungsweise 65535 bei 48 


KByte) 
Freier Speic 


PRINT; noch" PEEK 23730+256* 
PEEK23731-PEEK23653-256*PEEK 
23654," Bytes" 

Es geht auch einfacher: PRINT 
65535 — USR 7962 
Tastatuklick: 

POKE 236809, x-Länge des To- 

nes; max. 255 


in: 

POKE 23608, x=verändert die 
Länge des Warntones, wenn Pro- 
grammzeile länger als Bildschirm- 
seite 


POKE 23362, x=Beschleunigung 
in %o sec, x= 5 normale Geschwin- 
digkeit 

Repeat-Wartezeit: Wartezeit, bis Re- 
peatfunktion einsetzt POKE 23561, 
x=Zeit; beim Einschalten ist x=35 
Zeitzähler auf Null setzen: 

POKE 23672,0:POKE 23673,0:PO- 
KE 23674,0 
‚Automatischer 


Seoll; 
POKE 23682,x (x > 1) oder Rando- 
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mize USR 3280 oder Randomize USR 
3582 oder Zeile INPUT INKEY$ ein- 
fügen 

Editierzeile Attribute ändern: Farbe, 
Bright, und so weiter. 

POKE 23624, BIN XXXXXXXX 

X = l oder 0 probieren 

0 — schwarz 

11111111 — hell weiß 

Um 256 kleinere Anfangsadresse des Zei- 
chensatzes im ROM: 

POKE 23606,x 

Änderung des Zeichensatzes durch Ab- 
legen im RAM durch POKE 23606; 
Adresse im RAM-256; dann wie 
UDG verfahren, jedoch vorab CLE- 
AR... (Adresse -]) 

Hier wird als Beispiel meistens 
POKE 23606,8 angegeben. Das soll 
einen dem russischen ähnlichen 
Zeichensatz ergeben. 

Folgendes Programm zeigt die 
Veränderung deutlich: 

1 FOR b=0 TO 255: POKE 23606,b 
2 FOR 2 TO 255: PRINT CHR$ 
n;:NEXT n:PRINT AT 21,0;"23606,", b: 
PAUSE $0: CLS: NEXT b: STOP 
POKE 23607,10: Zeichensatz wird 
Punktehaufen 

POKE 23607,60: Zeichensatz wird 
wieder sichtbar 


Fertige Routinen im ROM 


RANDOMIZE USR 3435 = CLS 
RANDOMIZE USR 3756 = COPY 
RANDOMIZE USR 4535 = NEW 
RANDOMIZE USR 6137 = LIST (ab 
Zeile 0) 
RANDOMIZE USR 7406 = STOP 
RANDOMIZE USR 3438 = Löscht 


Zeilen 23 
und 24 
PRINT # schreibt auf der 
L”xyz” Editierzeile 
# 2'xyz" Schreibt auf dem 
Bildschirm oben 
# 3'xyz" Schreibt auf dem 
Drucker 
LIST #3 listet auf dem Drucker 
Input # macht einen INPUT im 
ax oberen Bildschirmbe- 
reich 


Speicher- DISPLAY 

plätze ‚16384 — 22527 
ATTRIBUTE 

22528 — 23297 = 

768 Bytes (24*32) 
POKE 22828,x :x=207 
ergibt ein blinkendes 
helles gelbes Zeichen 
auf blauem Grund 

x = INK*8 + PAPER 
+ 8 BRIGHT) 

+ 128 (FLASH) 


Bildzähler 

:23672 bis 23674 

wird 50mal in der 
Sekunde um 2 erhöht 
10 POKE 23670,0: POKE 
23673,0:POKE 23674,0 
20 LET s=(PEEK 23673 
+256*PEEK 23673) 
/502 

23 PRINT s:REM s Zeit 
in Sec. seit Zeile 10 
30IFs >= 

60 THEN GOTO 10 


Großbuchstaben: POKE 23658,8 ein 
Oaus 


Beispiel: 


Speicher- 
platz 


Beispiel: 


Wartezeit: 10 PRINT "Press any 
key to continue” 
20 IF INKEYS$ 
THEN GOTO 20 
30 CLS: PRINT "This 
would be page 2" 
Einfacher und vor allem Speicher- 
platz-sparender ist: PAUSE n n=0 
bedeutet unendliche Pause; jeder 
Tastendruck setzt die Funktion zu- 
rück. 


BREAK-Schutz: POKE 23659,0 (Sinclair 
User, Sept. 84,50/5]) (dann kannman 
aber die untersten zwei Zeilen nicht 
im Programm (zum Beispiel INPUT) 
gebrauchten; bei SCROLL wird die 
Systemvariable DF SZ (define 
screen size)) ebenfalls wieder auf 2 
gesetzt, und der Schutz ist unwirk- 
sam; INKEYS benutzen) 


Fehlermeldungsvariable ERR SP verändern: 

10 LET A= PEEK 23613+256*PEEK 
23614:POKE A,b 

Werte für b ausprobieren; zum Bei- 
spiel 100-150-200 oder 250. 200 = 
NE 


Ww 

CP 3/84,93: 
Folgende Zeilen einfügen: 
1 LET a= PEEK 23613+256*PEEK 
23614: POKE a,0:POKE a+1,0 
9999 LET b= 23613:POKE b,0: POKE 
b+1,6l: SAVE "xxx" CODE 23992, 
(PEEK 23641 + 256 * PEEK 23642) — 
23532: RUN 

Zum Abspeichern GOTO 9999, 
zum Laden LOAD "xxx" CODE ein- 
geben. Damit wird schon ein Ab- 
sturz verursacht, wenn man wäh- 


LPRINT Il 


rend des Ladevorgangs ein BREAK 
versucht. 

Basic-Programmlänge: PRINT PEEK 
23637+256*PEEK 23628-23755 
ES, PRINT "Freier Speicherbe- 
reich= 


"; (PEEK 23730+256*PEEK 23731- 
PEEK 23649-256*PEEK 23650) +229 
> PRINT "Länge des 

Programms="; (PEEK 23641+256* 
PEEK 23642-PEEK 23635-286*PEEK 
23636)-229 


Folgende Zeile in ein Programm eingebaut li- 


stet x Zeilen: 

10 POKE 23692,x + 1: LIST: STOP (für 
x< 2 

POKE 23693,56 macht so manches Listing 
wieder sichtbar. 


z (&-G Schefier) 


LPrint II — 


Probleme gelöst 


Das weit verbreitete Drucker-Interface LPrint III hat 
seine Tücken. Diese sind jedoch zu umgehen, wenn 
die Ursache erst einmal erkannt ist. 


im Kauf meines Druckers 
Gemini-10X bestellte ich aus 
Bequemlichkeit ein LPrint III, 

was ich aber sehr bald bedauerte, 
als sich die in Ausgabe 3/85 der 
Happy-Computer beschriebenen 
Symptome zeigten. Zeichen gingen 
auf unerklärliche Weise verloren 
und bei gekauften Programmen ver- 
weigerte der Gemini zumeist seine 
Mitarbeit. Sofort kam mir der Ver- 
dacht, daß wohl mit dem Interface 
etwas sseinmußte, was nicht der sehr 
dürftigen Anleitung zu entnehmen 
war, und ging daran, das Interface 
näher zu untersuchen. Äußerst hilf- 
reich war dabei, die aus der Sicht 
des Herstellers vielleicht verständli- 
che Methode, die Bezeichnung ei- 
nes ICs abzuschleifen. 

Erstes Ergebnis: Beim dem IC 
handelt es sich um einen einfachen 
Buffer vom Typ 74125 beziehungs- 
weise 74428, 

Ich zeichnete mir vom Layout ei- 
nen Schaltplan und begann, die 
Funktion zu ergründen. 

Betrachtet wird nur die Parallel- 

Schnittstelle. 

Das Interface wird mit einem 
LPRINT-Kommando initialisiert. 
Dabei geschieht nun folgendes: 

Der Rechner läuft in die normale 
ZX-Printer-Routine bis zum Befehl IN 
A,(FB)bei Adresse OFOCH. Mit die- 
sem Befehl wird das im LPrint III- 
Interface befindliche EPROM se- 
lektiert und das Spectrum-ROM 
ganz abgeschaltet. Der Einsprung 
ins ROM erfolgt bei Adresse 
0712H=dezimal 1804. Dies ist durch 
die unvollständige Adreßcodierung 
des EPROMs (OFOCH-800H = 0712H) 
möglich. Dann wird zuerst nachge- 
sehen, ob schon eine Initialisierung 
stattgefunden hat, indem die Kana- 


linformation für die Druckroutine 
untersucht wird. Kritisch sind des- 
halb auch alle WO-Einlese- 
operationen mit gesetztem A7 und 
zurückgesetztem A2, alsoalle IN-Be- 
fehle, die größer als 127 und nicht 
durch 4 teilbar sind. Bei all diesen 
Adressen besteht akute Absturzge- 
fahr, weil immer das EPROM einge- 
schaltet wird. Man sollte dies beim 
Bau eigener Erweiterungen be- 
rücksichtigen. Nur eine vollständige 
‚Adreßdecodierung kann hier Abhil- 
fe schaffen. 


Adressen-Suche 


Die Adresse der Kanalinformation 
für die Druckroutine findet man 
über die Systemvariable CHANS, 
Dort steht eine Adresse, zu dernoch 
ein Offset von 15 addiert werden 
muß, um an die Adresse für die 
Druckroutine zu kommen. 

In Basic: PRINT 256*PEEK 23632 + 
PEEK 23631 +18. 

‚War das Interface noch nicht ini- 
tialisiert, wird dorthin die Adresse 
OEFDH geschrieben und dient als 
Aufrufadresse für alle folgenden 
LPrint-Befehle, wodurch das 
EPROM in der vorher beschriebe- 
nen Weise immer angesprochen 
wird. 

Mit jedem Aufruf werden nun be- 
stimmte Maschinenprogrammteile 
aus dem EPROM in den Printer-Buf- 
fer kopiert. Dieser Kniff ist notwen- 
dig, um das EPROM wieder ab- 
schalten zu können und Zugriff auf 
verschiedene ROM-Routinen zu ha- 
ben. 

Um es nochmal zu betonen: Es 
wird kein einziges zu druckendes 
Zeichen im Printer-Buffer abgelegt, 


sondern ein Maschinenprogramm, 
das die eigentliche Aufgabe des 
Druckens übernimmt. Das Aus- 
schalten desEPROMs erfolgt immer 
vom Printer-Buffer aus mit dem Be- 
fehl IN A,(B). 

Da das Maschinenprogramm mit 
jedem LPRINT-Befehl neu kopiert 
wird, spielt ein Überschreiben des- 
selben eigentlich keine Rolle. Doch 
Vorsicht! Ein paar Speicherzellen im 
Printer-Buffer von Adresse 29543 bis 
23548 werden als Zwischenspeicher 
benutzt. Werden diese überschrie- 
ben, so kann das unerwartete Fol- 
gen haben. 


Suche nach dem 
Schuldigen 


Dies ist einer der Gründe dafür, 
daß mit manchen gekauften Pro- 
grammen ein Drucken nicht mög- 
lich ist, da sie genau diese Speicher- 
zellen ebenfalls benützen. 

Auch Tasword II macht da keine 
‚Ausnahme, wie die Befehle MOVE 
oder COPY BLOCK zeigen. (Des- 
halb auch manch unerklärliche Ab- 
stürze, wenn man irgendwann da- 
nach versucht, etwas zu drucken.) 
Erschwerend kommt hierbei noch 
dazu, daß zudem die Kanalinforma- 
tion nach 23296 verzweigt wird, da 
von der Bedienungsanleitung ein 
"LPRINT CHRS$ 8" beim Programm- 
start empfohlen wird. Damit wird 
das im Printer-Buffer stehende Ma- 
schinenprogramm immer direkt 
aufgerufen und nicht mehr ständig 
durch erneutes Einkopieren vom 
'EPROM regeneriert. 

Solange man nicht die Grafikszei- 
chenalsDruckersteuercode im Text 
verwendet, ist deshalb eine Initiali- 
sierung mit "LPRINT CHR$3" vorzu- 
ziehen. 

Eine andere Möglichkeit, warum 
das Interface nicht mit einem ge- 
kauften Programm zusammenarbei- 
tet, ist folgende: 

Manche Programme (zum Bei- 
spiel Atric-Assembler) prüfen mit 
der Kombination IN A,(FB), BIT 6,A 
oder CP FF oderähnliches nach, ob 
der ZX-Printer ansprechbar ist. Ver- 
läuft der Test negativ, so wird im nor- 
malen Programm ohne zu drucken 


LPRINT II 


fortgefahren beziehungsweise wird 
= nn des Printers angenom- 


en die Hardware der Interfa- 
cebedingtergibtein derartiger Test 
immer (wegen der seriellen RS232- 
Schnittstelle) daß vermeintlich kein 
Drucker angeschlossen, bezie- 
'hungsweise dieser nicht bereit ist. 
Gleichzeitig wird das ROM aus-und 
das EPROM eingeschaltet. 


Hilfestellun: 
mit Assembler 


‚Abhilfe: Man durchsuche in Ba- 
sic das Maschinencode-Programm 
nach dieser Bitkombination und er- 
setze sie durch die Kombination 

IN A, $7B) 


10 FORn= 
20 IF PEEK 
AND PEEK (n+ 
= THEN GO SUB 


30 NEXT n: STOP 

100 IF (PEEK 

(n+2)=203 AND 

PEEK n+2)=254 A 
EEK 


(n+3)=258) THEN 
PRINT "Änderung 
bei Adresse: 
POKE (n+1)12: 
POKE (n+2),203: 
POKE (n+3),127: 
RETURN 

110 PRINT "Initiali- 
Senne bei Adres- 


Beispiel: 


TE RETURN 


Beim Artic-Assembler wird damit 
die Druckroutine lauffähig, indem 
nun "BUSY" an der richtigen Stelle 
(D7) abgefragt wird. Das Programm 
nennt einem gleichzeitig für andere 
Maschinencode-Programme die 
Adressen, bei denen das EPROM 
angesprochen wird und keine Än- 
derung vorgenommen werden 
kann, In diesem Fall müssen die 
‚Adressen mit Hilfe eines Disassem- 
‚blerprogramms untersucht und in- 
dividuell abgeändert werden, was 
natürlich ein gewisses Maß an Er- 
fahrung im Umgang mit Maschinen- 
sprache voraussetzt. Erfolgreich 
kann eine Änderung normalerwei- 
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se vorgenommen werden, wenn ir- 
gendwo in der Nähe der genannten 
‚Adresse ein Aufruf mit: 


LDA2 

CALL $1601 ;Kanal Printer öffnen 
LD A,$0D 

RST $10 ‚Printroutine 


zu finden ist. Der Befehl »IN A,(FB)« 
ist unbedingt auf»IN A,(7B)« abzuän- 
dern, 

Unter Umständen muß man auch 
überprüfen, ob vielleicht die Adres- 
sen 23343 bis 23848 von dem Pro- 
gramm benutzt werden und diese 
abändern. 

Ist das Interface einmal initiali- 
siert, also die neue Kanalinfo einge- 
schrieben und der Printer-Buffer 
verändert, so läßt sich das Interface 
vollkommen neu initialisieren, in- 
dem man wieder die ursprüngliche 
'Kanalinformation des ZX-Printers 
eingibt. 


Neue Initialisierung 
des Interfaces 


Vorteil: das Interface kann ohne 
‚Ausschalten des Rechners abge- 
schaltet und neu initialisiert werden. 
POKE (256*PEEK 23632+PEEK 
23631 + 15),244 
POKE (256*PEEK 23632+PEEK 
23631+18),9 

‘Wer sich genauer für den Inhalt 
des EPROMss interessiert, der kann 
ihn sich auffolgende Art zugänglich 
machen, da über Basic kein Zugriff 
möglich ist. 


10 INPUT a$ 
20 IFIN 123> =128 THEN GO TO 
2 


0: REM BUSY ? 

30 FOF n=] TO LEN a$ 

40 OUT 25ICODE a$n): OUT 
123CODE an): OUT 251CODE 
an) 

50 NEXTn 

60 OUT 251,10: OUT 123,10: OUT 
281,10: REM Vorschub 

70 GO TO 10 


Zum Schluß noch zu dem Pro- 
blem, wenn scheinbar rein zufällig 
Zeichen verlorengehen: 

Wenn man mit dem obigen Basic- 
Programm arbeitet, wird man fest- 
stellen, daß damit niemals ein Zei- 
chen verlorengeht. So zeigt sich 
auch, daß es sich hierbei um einen 
Softwarefehler im EPROM handelt, 
der darin besteht, daß die BUSY 
Leitung des Druckers nach der 
Übergabe eines Zeichens wiederzu 
früh abgefragt wird (noch bevor der 
Drucker sein Busy=1 setzen konn- 
te), Also wird daraufhin ein Zeichen 
ausgegeben, obwohl der Drucker 
zu diesem Zeitpunkt noch nicht 
empfangen kann. Hier ist eine Um- 
programmierung des EPROMs not- 
wendig, bei der die Ausgabe eines 
Zeichens um ein paar Taktzyklen 
verzögert wird. 


EPROM ändern 


Stolze Besitzer eines EPROM- 
Programmiergerätes können nach- 
stehende Änderung vornehmen, 
die den Fehler vollständig zum Ver- 
schwinden bringt. 


LD DE,$9C40 ;Startadresse RAM 


LDHLO ‚Startadresse 
EPROM 

LD BC,$800 :2048 Speicherzel- 
len kopieren 

DI ‚Interrupt sperren 

INA,«$SFB) ;EPROM einschal- 
ten 

LDIR ‚Inhalt nach dez. 
40000 kopieren 

IN A,$7B) ;EPROM ausschal- 
ten 

EI ‚Interrupt freige- 
ben 

RET 


Mann kann das Interface auch oh- 
ne die eingebaute Steuersoftware 
benutzen (ohne LPrint-Befehl), wie 
das nachstehende Basic-Programm 
zeigt: 


Original Änderung 
dez. 
194 CALL $1F5494 CALL $0SBF 


197 JP 
NC50D00 197 NOP 


200 IN A,($7B) 198 LD A,O 
200 IN A,($7B) 


Der Hersteller möge mir trotz Co- 
pyright den kurzen Auszug aus dem 
ohnehin fehlerhaften Programm 
verzeihen. Nach dieser Änderung 
wird der etwas längere BREAKTest 
der LOAD-Routine aufgerufen. 

Schaltungsbedingt muß ein 
EPROM 2716-1 (350ns) verwendet 
werden (auf keinen Fall eines mit 
450ns), 

Mit Hilfe der aufgezeigten Lö- 
sungswege sollte es einem versier- 
ten Happy-Computermann möglich 
sein, doch noch Freude an seinem 
LPrint III zu finden. (. Holder) 
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Reparatur-Story 


Du 


Frei nach Murphys Gesetzen: Ein elektronisches 
Gerät wird beim Kauf getestet und funktioniert. 
Daheim verweigert es jedoch seinen Dienst. 


Nachahmung 


m August 1984 hielt ich mich in 

Schottland auf. Als Besitzer eines 

Spectrums mußte ich die Gele- 
genheit für Einkäufe nutzen. Das An- 
gebot in Großbritannien istnicht nur 
viel reichhaltiger, sondern auch 
preiswerter als in Deutschland. Da 
auf meiner Wunschliste ganz oben 
das Interface 1 stand, habe ich mir 
dann in Edinburgh auch eines ge- 
kauft. 49,95 Britische Pfund wurden 
dafür bezahlt. Damit ich keine bösen 
Überraschungen erlebe, habe ich 
das Gerät im Laden ausprobiert. Es 
funktionierte. 

‚Als ich wieder zu Hause war, wur- 
de das Interface 1 angeschlossen, 
und dann gab es die große Überra- 
schung: Es ging nicht. War es auf 
dem Transport kaputt gegangen? 
Am nächsten Tag habe ich es an ei- 
nem anderen Spectrum auch aus- 
probiert. Dort funktionierte es. Also 
'war mein Spectrum kaputt. Aber oh- 
ne Interface | lief er einwandfrei. 
Wie findet man den Fehler? 

Ein paar Tage später war ich zufäl- 
lig in Aachen. Mein Spectrum war 
yon einer dortigen großen Versand- 
firma. Ich habe das Problem ge- 
schildert und die Auskunft war 
überraschend. Das Problem sei be- 
kannt, denn das Interface 1 seinicht 
kompatibel mit der Version II Spec- 
trums. Es funktioniere nur mit Ver- 
sion III. Man wolle sich aber in Eng- 
land erkundigen, wie man das Pro- 
blem lösen könne und ich solle in ein 
paar Wochen nochmals nachfragen. 
Ich kannte jedoch Leute, an deren 
Version II lief das Interface 1 ein- 
wandfrei, was mir zu denken gab. 

‚Also selber rangehen hieß die Lö- 
sung. Ich habe einen Schaltplan be- 
sorgt. Und dann ging das Messen 
los. Um es kurz zu machen: nach et- 
wa vier Stunden Arbeit haben wir 
den Fehler gefunden. Der Ausgang 
MI meiner Z80A-CPU war defekt; 
und den braucht der normale Spec- 
trum nicht, aberdas Interface 1, Also 
den Z80A-Prozessor austauschen. 

‚Aber vorher gab es noch ein wei- 
teres Problem. Wir haben nämlich 
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ne jegliche Gewähr. 


versucht den Spectrum provisorisch. 
zu reparieren. Dazu wurde der Aus- 
gang MI über einen 4,7 ka Wider- 
stand auf Null Volt gelegt und ein 
Kurzschluß gebaut. Ein Transistor 
gab seinen Geist auf. Computer re- 
parieren ist also doch gefährlich! 
Das war ein ZTX 650 von Ferranti. 
Der war nur nirgends zu bekom- 
men. Zum Glück gibt es einen 
Sinclair-Importeur in Ottobrunn. 
Nach einigen Telefonaten und drei 
Tage Warten hatte ich dann den 
Transistor. Also eingelötet und mein 
Spectrum ging wieder. 


Erfolgserlebnis gesichert 


Und die provisorische Lösung mit 
dem Widerstand hat auch funktio- 
niert. Mein Spectrum stürzte ledig- 
lich von Zeitzu Zeitab. Ergodoch die 
Z80A-CPU austauschen. Ich habe 
mir in Ottobrunn einen Kostenvoran- 
schlageingeholt. 85Mark sollte Aus- 
tausch und Sockeln der CPU kosten. 
Das ging ja noch. Aber wie lange 
wäre ich dann ohne Computer? Da 
blieb nur eines: Selbermachen. 

Ich habe mir also einen IC-Sockel 
(3,50 Mark), eine neue CPU (14,80 
Mark), eine Entlötpumpe (16,80 
Mark) und eine feine Spitze für mei- 
nen Lötkolben (6,80 Mark) gekauft 

Nun ist das Auslöten eines 
40poligen ICs nicht einfach. Alle 
Leute die berufsmäßig Löten, haben 
mir davon abgeraten. Aber mich 
schreckte nun nichts mehr. 

Das Öffnen des Spectrums ist ja 
noch einfach. Man muß alle 40 Pins 
der CPU heiß machen und das flüs- 
sige Lötzinn absaugen. Aber vor- 
sichtig. Macht man sie zu heiß, kön- 
nen sich die Leiterbahnen von der 
Platine ablösen. Und dann ist der 
Ofen aus. Nach vier vorsichtigen 
Durchgängen sahen alle Lötstellen 
sauber abgesaugt aus. Aber der IC 
war immer noch nicht los. Und mit 
Gewalt einfach ziehen ist auch ge- 
fährlich, da man dann leicht eine 
Leiterbahn abreißt. Aber es wurde 


doch noch geschafft, Man braucht 
nur mehr als zwei Hände dafür. 
(Zum Glück hat meine Frau mitge- 
holfen.) Man muß das Lötzinn an ei- 
nem Beinchen erhitzen, und dann 
das Beinchen solange vorsichtig be- 
wegen, bis das Lötzinn hart ist. Dann 
ist es lose. Hat man das vierzig mal 
gemacht, kann man versuchen, die 
CPU vorsichtig rauszuziehen. Fast 
70 Minuten hatte es gedauert, bis 
die CPU draußen war, 

Das Einlöten des Sockels war nun 
ein Kinderspiel. Beim Einstecken 
der neuen CPU muß man nochmals 
vorsichtig sein, damit man sich nicht 
elektrostatisch auflädt. Und dann 
kommt der große Moment. Geht er 
wieder oder geht er nicht. Bei mir 
ging er wieder. Und ich kann jetzt 
voller Stolz sagen: ich habe ihn sel- 
ber repariert, 

Rund 50 Mark habe ich investiert 
(mit dem kaputten Transistor) und 
die Entlötpumpe und die Lötspitze 
kann ich noch weiter gebrauchen. 
Also: Geld gespart und ein Erfolgs- 
erlebnis besonderer Art gehabt 
(aber auch geschwitzt). Jetzt zeigen 
sich auch keine Systemabstürze 
mehr, und die Fehlerrate bei den 
Microdrive-Operationen ist auch 
deutlich zurückgegangen. Und 
dannhabe ichnocheinigesüberdie 
Spectrum Hardware gelernt. Das ist 
sicher alles nichts Neues, aber wer 
hat schon alle Veröffentlichungen 
über den Spectrum gelesen. 

Der Anschluß —12 V Userport 
führt nicht diese Spannung, sondern 
eine hochfrequente Wechselspan- 
nung. Man kann allerdings mit einer 
Diode und einem Tantalelko daraus 
—12 V machen. Alle Videosignale 
am Userport (U, V, Y, Video) sind 
über Brücken geführt, die offen- 
sichtlich nicht in allen Spectrum ein- 
gelötet sind. 

Bei einigen Spectrums ist der Pla- 
tinenaufdruck für einige Bauteile 
(Elkos) falsch herum. Also aufpas- 
sen und nicht einfach anders herum 
einlöten. Und es gibt verschiedene 
Version II des Spectrum, sozusagen 
Version Ila und IIb. Ich besitze einen 
der Baureihe Ila. Man erkennt die- 
sen daran, daß bereits alle sechs 
Logic-ICs zur Adressdecodierung 
im 16-KByte-Gerät eingelötet sind. 
Erst im IIb sind dafür Stackfassun- 
gen vorhanden. Auch die Brücke, 
mit der man die verschiedenen Ty- 
pen der 32-KByte-Speichererweite- 
rung unterscheidet, ist schon drin. 
‚Aber die kann man ja notfalls umlö- 
ten. Man muß also wirklich aufpas- 
sen. Sinclairistimmer für eine Über- 
raschung gut (und wird es wohl blei- 
ben). (R. W. Gerling) 


Borkterheit Snake 


Funk & Computer 


Es hat gefunkt 


Funksignale schwirren in Massen durch den Äther, 
aber nur wenige in Form von gesprochenen Worten, 
viele als Morsesignale und als Funkfernschreiben. 
Einige Signale sind sogar codierte Bildsignale und 
lassen sich per Programm decodieren. 


‚er wäre wohl besser geeig- 

net, diese »unverständli- 

chen« Zeichen zu decodie- 
ren, als der Kollege Computer, zum 
Beispiel der Spectrum? Selbstver- 
ständlich darf nun nicht jeder jedes 
beliebige zu empfangende Signal 
auch »mitlesen«. Dafür gibt es 
schließlich reichlich Bestimmungen 
der deutschen Bundespost. Aber im 
Bereich des lizensierten Amateur- 
funks bleiben noch immer genug le- 
senswerte Funksignale über. Neben 
dem Tastfunk werden hier sowohl 
RTTYIechnik (radio-teletype) als 
auch die neueren Kommunikations- 
formen AMTOR und Packet-Radio 
genutzt, die eigentlich RTTYAb- 
wandlungen zum Betrieb automati- 
scher Amateurfunk-Stationen (Mail- 
boxen) sind, die ohne Computer- 
technik nicht denkbar sind. RTTY, 
also das Funkfemnschreiben, wird 


Der Computer im Funkkreis 


Eonderhalt Shentram: 


normalerweise mit speziellen Fern- 
schreibern codiert und decodiert 
Mit einem entsprechenden Interfa- 
ce ausgerüstet, kann jedoch sogar 
der Spectrum sowohl zum Ausge- 
benalsauch zum Empfangen dieser 
Signale verwendet werden. Das In- 
terface ist hier im Monitor zu sehen. 
Es wird als Bausatz für 149 Mark 
‚oder als Fertigteil für 369 Mark an- 
geboten. Das mitgelieferte Pro- 
gramm ist wohl der eigentliche Clou 
der Anlage. Es ist komplett in Z80- 
Maschinencode geschrieben und 
wird über die Tastatur bedient. Es 
prüft selbsttätig sowohl das Vorhan- 
densein des Interfaces als auch den 
freien Speicherplatz und die ange- 
schlossenen Microdrives. Anschlie- 
Bend wird der Benutzer zur Zeit-und 
Stationsnamen-Eingabe- aufgefor- 
dert. Fünf Textspeicher mit je 253 
Zeichen können beschrieben oder 


vom Recorder mit Text belegt wer- 
den. Laden und Speichern geht da- 
bei recht schnell, da ohne Header 
gearbeitet wird. Das Programm ver- 
zweigt nun in zwei Richtungen: Ei- 
nen Sende- und einen Empfangs- 
zweig. Text, der empfangen wird, 
kann so im Speicher abgelegt wer- 
den, daß er später entweder noch- 
mals auf dem Bildschirm gezeigt 
wird oder aber ausgedruckt und/ 
oder auf Microdrive abgespeichert 
wird. Der TX-(Sende-JPuffer kann 
50000 Zeichen aufnehmen. Deren 
‚Aussendung wird von der CPU des 
Computers überwacht und die 
exakte Sendegeschwindigkeit (45 
oder 50 BAUD) wird eingehalten. 
Am Schluß jeder Aussendung wird 
der Stationsname gesendet und der 
Spectrum schaltet wieder auf Emp- 
fang zurück. 


Es geht auch mit 
ildsignalen 


Wer nun meint, die Kräfte des klei- 
nen Sinclair-Computers seien aus- 
gereizt, der irrt sich gewaltig. Ohne 
jegliche Hardware-Zutaten ist der 
Spectrum in der Lage, sogenannte 
SSTV-Signale zu decodieren und auf 
dem Bildschirm auszugeben. SSTV 
steht für Amateur-Bildfunk und ist 
bisher wenigen Spezialisten vorbe- 
halten. Vielleicht ändert sich aber 
die Zahl der Fernseh-Amateure 
durch den Computereinsatz 
schnell. Das entsprechende Spec- 
trum-Programm benötigt für Sende- 
und Empfangsbetrieb den 48KByte- 
Speicher. »Minicom SSTV* ist in Ma- 
schinensprache geschrieben und 
benötigt 10 KByte Programmspei- 
cher. In dem RAM-Bereich von 
25000 bis 50000 können bis zu sie- 
ben Bilder abgelegt werden, die im 
Laufe des Programms dann abgeru- 
fen werden. Hierbei werden Texte 
wie Bilder erfaßt und empfangen 
beziehungsweise gesendet. Für 
größere Empfangssicherheit sorgt 
ein aktives Filter, das man zwischen 
Empfänger und Spectrum schalten 
kann. Für die hier vorgestellten An- 
wendungen ist übrigens eine ent- 
sprechende Amateurfunk-Station 
samt Lizenz nötig, 

Mit diesen beiden Spitzenpro- 
grammen beweist der Spectrum 
eindeutig, daß er mehr kann alssim- 
ple Morsetraineraufgaben wahr- 
nehmen. Schade eigentlich, daß die 
reichlich vorhandene Fachliteratur 
diesen Kleincomputer bisher aus- 
klammert (mk) 


se ı1N7 


Soundgenerator 


Sound zum Selbermachen 


Ein Sound-Generator-Bausatz verwandelt die mageren »BEEPs« zu 
vollem Klang und läßt sich auch noch zur 8-Bit-PIO erweitern. 
Es ist ein »update« der in Happy-Computer 11/84 vorgestellten Version. 


leitung ist der Sound-IC AY 

3-89l2 von General Instru- 
ments. Dieser IC ist (fichtig ange- 
wendet) ein wahres Klangwunder, 
denn er enthält drei Tongenerato- 
ren, einen Rauschgenerator, drei 
Hüllkurvengeneratoren, ein Steuer- 
register und, um dasMaß vollzuma- 
chen, noch eine 8-Bit-PIO (siehe 


Bild) 
»OUT« macht’s 
möglich 
Angesprochen werden die 14 Re- 


gister des AY 3-8912 durch den Be- 
fehl »OUT 189,n« (n= 0 bis 14 für Re- 


A usgangspunkt für diese Bauan- 


gister 0 bis 14). Verdeutlicht wird 
dies durch die RegisterTabelle. Mit 
»OUT 191,n« wird der gewünschte 
Wert n in das vorher angewählte Re- 
gister eingeschrieben. 

Die OUT-Befehle 189 und 191 wer- 
den durch die Gatter a3, a4 und b2 
aus dem IORQ und dem WR-Signal 
sowie aus den Adreßleitungen Al 
und A6 an der Steckerleiste des 
Spectrum decodiert 

Als letztes bleibt noch der NF- 
Verstärker, aufgebaut aus dem IC 
LM 386 und ein paar diskreten Bau- 
teilen. BeidiesemIC handelt essich 
um einen 0,8 W-Verstärker für niedri- 
ge Betriebsspannungen (in unse- 
rem Fall 5 V), 


ann 


Sound- und 
PIO-Baustein 


>» 


SFT 


Be ne 


=: 


her 


RT} 
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Bestückungsplan 


Soundgenerator 


Funktionsgruppen des Sound-Chips 
AY 3-8912: 


1. Der Rauschgenerator, dessen 
Klang in 32 Stufen (hell bis dun- 
kel) verändert werden kann. 


2. Die drei Tongeneratoren, die 
jeweils 4095 Töne erzeugen, ein- 
stellbar durch ein 12-BitWort (8 
Bit fein, 4 Bit grob). 


3. Das Steuerregister als wichtig- 
ster Block. Durch dieses Register 
wird festgelegt, welcher Klang 
am Ausgang erscheint und ob die 
PI/O auf Ein- oder Ausgabe ge- 
stellt ist. Einstellbar ist dieses Re- 
gister durch eine Zahl von 0 bis 
258. 


4. Die steuerbaren Verstärkerstu- 
fen, mit denen die Lautstärke am 
‚Ausgang für jeden einzelnen Ka- 
nal festgelegt wird (15 Stufen). 
Gibt man hier eine 16 ein, so wird 
der betreffende Kanal auf den 
Hüllkurvengenerator geschaltet. 


5. Der Hüllkurvengenerator, ein- 
gestellt durch Register 11 und 12, 
Mit dieser Stufe wird die Hüllkur- 
venfrequenz ausgewählt. Das ge- 
schieht für beide Register zusam- 
men durch ein 16-Bit'Wort, sodaß 
bei der angegebenen Dimensio- 
nierung des Clock-Generators, 
bestehend aus IC 741532, Gatter 
al und a2, eine Frequenz von O,l 
Hz bis zirka 8kHz eingestellt wer- 
den kann. 


6, Das Steuerregister für den 
Hüllkurvengenerator. 


7. Der parallele Input/Output- 
Port (PIO), angesprochen durch 
Register 14, Einstellung mit 1 bis 
288 für den Output-Port. Wird in 
Register 7 eine ] in Datenbit 6 ein- 
gegeben (also die Zahl 64), so ist 
die PVO auf Ausgabe eingestellt. 
Eine 0 in Register 7 stellt die PVO 
auf Eingabe, Mit »PRINT IN 191« 
kann der Eingangswert aufgeli- 


Verstärk. 
Kontrolle 


Steuer— 
Register 


Zum 
Spectrum 


stet werden. 


Die Hardware der 
Musikbox ist einfach, 
aber wirkungsvoll 


Der Aufbau auf der abgebildeten 
Platine sollte dem einigermaßen ge- 
übten Bastler keine Schwierigkeiten 
bereiten. Es ist jedoch unbedingt 


Halbleiter; 

ıc ı aY 53-8912 
10 2 741502 
105 241832 
104 zu 386 
Di Led Smm 


Io-Fussunger 


2xi4 per. 
1x28 pol. 
1x 8 pol. 
Sincleir-SteckdX!6 Pol- 
Lautsprecher 0,2 bis 0,5W/8 Ohm 
Klinkenbuchse Sam 


(nur bei Bedarf) 


auf saubere Lötstellen, richtige Po- Stückliste zum Soundgenerator 


a a er in 


Soundgenerator 


Register-Nr. Funktion 


lung der Tantalkondensatoren und 


0) unteres Byte von 0 255 
45 Frequenz Kanal A 


die Vollzähligkeit der Drahtbrücken 
zu achten, um den Spectrum nicht in 


die ewigen Jagdgründe zu schicken. 
Bei dem Verstärker-IC werden 


1 oberes Byte von 0 
2 unteres Byte von 0 255 

Fr 
3 oberes Byte von o 15 Fedbenz Kanal B 
4 unteres Byte von 0 255 
5 oberes Byte von 0 15 Frequenz Kanal C 


die Beinchen 7 und 8 nicht ge- 
braucht und können abgekniffen 
werden. Die diversen Draht- 


Rauschgenerator 0 31 Klang des Rauschgenerators 
Steuerregister:einet im Bit 0,12 sperrt Tonkanal ABC 


eine! im Bit 345 sperri Rauschkanal A.B.C 


'brücken auf der Platine sind unbe- 
dingt als erstes einzulöten, da sie 
teilweise unter den ICs liegen. Man 
kommt später nämlich nicht mehr 


ran. 

Etwas schwieriger ist schon der 
Einbau der bestückten Platine in 
das hier vorgeschlagene Gehäuse, 


Der Kreativität des Einzelnen sind 
hier keine Grenzen gesetzt. Platine, 


Bausatz und ein Musikprogramm 


sind beim Autor erhältlich. 
| (R. Hobmeier) 


Vibrato, Halten 


Ä are Kan 0 15 beitßwird derKanal auf den 
aulstarke Kanal B 0 15 Lülikurvengenerator geschaltet 
” Lautstärke Kanal C 0 
" unteres Byte von 0 255 
"2 oberes Byte von 0 255 Freauenz Hüllkurve 
” Hüllkurventorm oo» 
" Parallel -Input/Output— Port (PO) 
4 Register und Funktionen Abfall 
° 
° 
1 
ü 
Signalformen > 1 
1 
; ü 
D 
Demo-Programm ü 
ü 


REM Demo-Progr, 
m Fuer 
REM  Spectrun-Sound-Board 

m von 


REN  Rar Hobneier 

41 REM Schlenkhoffsueg 27 
42 REM 4728 BECKUM 

3 REM Tel.02521/4570 


REM 
45 BORDER &: PAPER 6 
CLs 


51 PATI 
o-Programı 


sound-Den 
RairH 


TORE ; PRINT INK 
Ziffer eingeben 
"uelchen Klang wuensc 


35“ THEN Pi 
koraıten bei": 


1; INK 2;A 
JOUND-ERFEKT" 
a=109; LET baisı 
b,248 
eur 8:38 


TO 128: OUT b,(n-64 
6,128-n: OUT b,n: NEXT 


E so 
: FOR n=® TO 2 
ur B9A: "NEXT n: NER 


‚SER RAR 
Beraslss: Let beısı 


1.18 ,8{"ekeL 0810 


22@ OUT a,7: OUT b,254: FOR n=9 
„Te 255: lt a,e: our Brut ınza 
238 0uT a,8; 0 ; n 

248 DATA dis ES HIWCH REHTR 


18,12,58, 
252 Ei BERD\ €: „RERD 
4; OUT OUT b,d: NEXT m 
53" Pause 198 

282 co Ti 

292 Ren 


385 CL: VER 1; INK 2;A 


318 LET 2.188: LET D2191 
32®_DATA 8,31,7,7,8,16,9,16,10, 
16,12,28,193,3 

388 FOR In neioto 2: ,R RERD e: RERD 


aur 
ss Pause 120 


198° 06 r0"208 
528 18 98 To 14: OUT 189,n: 0 


UF 191,6: NEXT n 
Sıa 66 To 45 


PIO zum Soundg 


Nachdem das bereits in 
»Happy-Computer 
11/84« vorgestellte 
Sound-Modul hoffentlich 
von allen Nachbauern 
zum Klingen gebracht 
werden konnte, wollen 
wir uns nun mit der ein- 
gebauten PIO beschäfti- 
gen. Der Ausbau ist 
relativ einfach. 


n der nachfolgenden Bauanlei- 

tung wird sie nur als Ausgabe- 

Port mit 8 Relais-Ausgängen be- 
nutzt, Die RelaisKontakte können 
mit maximal 500 mA belastet wer- 
den. 

Wie wir uns noch erinnern kön- 
nen, war an dem Sound-Generator 
eine löpolige IC-Fassung als Aus- 
gang vorgesehen. Von hier aus geht 
es nun mit einem Flachbandkabel 
mit 16poligem IC-Stecker zur P/O- 
Platine. 

Bevor wir aber mit dem Aufbau 
beginnen, müssen wir noch eine 
wichtige Änderung am Sound- 
Generator vornehmen, damit die 5 
Stromversorgung des Spectrum 
nicht überlastet wird. Diese Ände- 
Zungistin dem vorstehenden Sound- 
Artikel bereits eingearbeitet. 

Die aufdem Bild gekennzeichnete 
Leiterbahn durchtrennen und das 
freie Beinchen der IC-Fassung mit 
+9 V an der Steckerleiste verbin- 
den, Die P/O-Platine hat einen ei- 
genen 5 V-Regler. 

Die Funktionsweise ist folgende: 

Um den Sound-Chip auf Daten- 
Ausgabe vorzubereiten, sind einige 
Eingaben nötig. 

Als erstes alle Register des PSG auf 

»0« stellen. 

FOR I = 0 TO 14 : OUT 189,1: OUT 

191,0: NEXTI 

Dann die PL/O initialisieren; 

OUT 189,7: OUT 191,64 (Für Fachleu- 

te: Das6. Datenbit im Register /muß 

für PVO-Ausgabe auf »H« und für 

a auf »L« gesetzt wer- 
len.) 


an Se 8 = de 


Nun können wir mit »OUT 189,14 
OUT 19l,n« jeden Ausgang von 1-8 
einschalten. 

Da die PI/O aber binär codiert ist, 
müssen wir für die einzelnen 
Ausgabe-Befehle (n) für den 
1. Ausgang eine 1 
2. Ausgang eine 2 
3. Ausgang eine 4 


4. Ausgang eine 8 
5. Ausgang eine 16 
6. Ausgang eine 32 
7. Ausgang eine 64 
8. Ausgang eine 128 eingeben. 
Beispiel: 

Umden 7. Ausgang einzuschalten, 
muß der Befehl »OUT 189,14 : OUT 
191,64«heißen. Der Relais-Kontakt ist 


GGG 


Der Bestückungsplan in gleicher Luge, wie das Foto oben. 
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Die komplette PIO-Schaltung mit Bauteile-Liste 


jetzt geschlossen. Das Ausschalten 
geschieht durch das Setzen des Re- 
gisters 14 auf »0« oder mit dem Ein- 
schalten eines anderen Ausganges, 
Sollen mehrere Ausgänge gleich- 
zeitig eingeschaltet werden, so sind 
Binär-Zahlen zu addieren, zum 
Beispiel für Ausgang »l« und Aus- 
gang»7« einschalten muß die Zahl 65 
eingegeben werden (+64). 
Die ICs 1-3 dienen dem PSG-IC 
AY3-89]2 als Treiberstufen, da der 
AY nur eine LS-Last treiben kann. 
Mitder LED-Balken-Anzeige kann 
der eingeschaltete Ausgang sicht- 
bar gemacht werden. Als Relais 
werden 5 V DIL-Relais verwendet. 
Die Platine wird nach dem Be- 
stückungsplan aufgebaut und verlö- 
tet. Die ICs werden ohne Fassung 
eingelötet. Blick auf die 
Der Spannungsregler wird auf feiterbahn-Seite 
der Rückseite der Platine mit der der Platine 
‚Aufdruckseite nach unten aufeinem 
Kühlblech montiert, das ungefähr 


die Größe der Platine hat. Diese bels empfiehlt sich größte Sorgfalt, tine, Bauteile und auch ein komplet- 
Konstruktion kann dann mit Ab- da es IC-Stecker mit unterschiedli- ter Bausatzkönnen beim Autor bezo- 
standsbolzen in den vorgesehenen cher Beschaltung gibt. Hier sollte gen werden. 

Löchern verschraubt werden. Bei manzur Vorsichtalle Kontaktemitei- Nun viel Spaß und Erfolg. 


dem Anschluß des Flachbandka- nem Ohm-Meter durchmessen. Pla- 


R. Hobmeier) 


10 REM yarreneansaraeraeeeraer 
* 

* PI/O-STEUERPRÜGRANMM # 

RALF HOBMEIER 


re 
ir 


ET 
11 BoRDeR"e. PaBen e Inesr 


12 PRINT AT 21,27; "R.H. 
13 PLOT 2,30, Bee, 0: garu 
"AL 


8,27: 62,8 
is IRBG 
28 9: LE 
ne 
35 REM PI/O AUF Pr 
42 OUT _A,7: OUT B,&. 
45 ” id 
“s PINK LAT 8,8500 1 2 8 
3 AT, 15,1; "PI/O-AUSGABE 
at Re) AT 17,1; 
ss LET 0$="0": 60 f 
5 
INT BLTHELCHER RusGa 
NG Sch ANGESTEUERTUERBEN ? 
TE FrEBE guNKT 
TONEN "5 FLASH 13380": Pau 
8: „LET ESsENnErs 
Si,ir Csc"o” OR cs>"0" THEN co 


m Bi, n en STEP 2: PRINT 


18, 
Is REN PL/O UERT BUSEEBEN 
= LET DEVAL, C$: ;PEIN INT IN Kk 


OUT_B,D 
1;AT 18,186; 


198 PLOT_ 77,88; 

T 2g:es, SRal 125, 

118 FOR I TO 93 

PLOT 91, I T_ 107,1 

I; _PLOT PLO 

172,1: En las, T: 

EXT I 

120 RETURN 

145 REM 

158 BORD 8: INK 8: CO 
LS 

155 0 

158 PRINT TEMPO 
RENDERN Ma Te 


MIT. FLAS! 
178 PRINT AT 21,27; "R. 
150_ PLOT 8,30: DRAU isB, FE Baal 
8,27: DRAU -160,08: DRA 
198 PRINT AT 15,15" PITO AUSSAGE 


AT zy1: 
" RESISTER" 
"280 BLör 228: DRAU 126,0: FLO 


: DRi 5 
218 FOR Sog TO _%8: PLOT 78,1 


3 ar 

I; PLOT 148,1: PLOT 156,1: 
172,1: PLOT 158,1: PLOT 
EXT I 


215 INPUT JPRUSENERENGE 
„220 LET A=1; LET B=1: LE 


Bss, LET, D$=INKEYS: IF Ds="T" or 
5 THEN_G0_ TO 215 
3:8 BRINT Ar 19,9+3 
348 RRINT AT 10,A+9 AT ı0,A 


*Zis our 189 Sur 181,8 
248 „PRINT At"16,18:8 LET 
243 PAUSE © 

49 LET A=A+2 
„28 Ir THEN PRINT AT 18,R+ 


A=17 
": 60 _ TO 228 
"haa üoTo 248 


Basic-Testlisting zur PIO 


I ne. 


Markt XTechnik-Buchverlag 
Depot-Händler 


ke er 


ano ensure (dan zung, 


a are 


a as ann 9938 
sone Buchung, Apr Seimung 1 


Ba 


eh ie, 


0008 Kaznpıan. ma 10030, 1a 


Beinen „Mining s0-58 
Po 


Ver. 12. nua nucnsenee ii. Par 
RER 


a oa 


1 an 


6294 ML Vejlen 
Holland 
Brandl, Horst 
Schumacherring 27 
‚8000 München 83 
Gerling, u 
'Hollergasse It 

851 Hereldsbach 
Gleissner, Simon 
Bingenheimerstr. 46 
‚6361 Reichelsheim. 
‚Henrich, Axel 
Heidhoernweg 21 
2962 Spetzerfahn 


Hilper, Martin 


Ko) g4 

8630 Coburg. 

Hönnig, Michael 

Postfach 1123 

2980 Norden & 

Holder, Jürgen 

Meisenweg 13 

7319 Dettingen/Teck 
Hobmeier, Ralf 
Schlenkhoffsweg 27 

4720 Beckum 

Krawczyk, Karina 
Redaktion Happy-Computer 
Leuhardt, Heinrich 
Redaktion Happy-Computer 


4775 Lippetal 
Pallada, H. 

J. Jelgerhuishof 6 
1065 TM Amsterdam 
Prillinger, Horst 


Kae Braunau am Inn 


ıelstr. 20 
5169 Heimbach 4 
Schimice, Axel 
Fontanestraße 8 
5620 Velbert 1 


8820 Gunzenhausen 
Voelkers, Oliver 
Brombeerweg 5 

4500 Osnabrück 
Wilhelm, Harald 

Förster Str. 16 

‚3000 Köln 30 \ 
v, Zeschwitz, Hans Georg 
Schwindstr. 17 

2000 Hamburg 52 
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Stephen Adams 

lan Beardsmore 

‚John Gilbert 

Alles über Sinclair-Computer 
1984. 172 Seiten, Broschur. 

sFr. 26.80 / DM 29.80 

ISBN 3-7643-1625-X 

«... Unverzichtbar in der Sinclair- 
Bucheckeh 


arm coupuran 


Andrew Pennell 
ZX Microdrive-Buch 

1984. 136 Seiten, Broschur. 

str. 26.- /DM 29.80 

ISBN 3-7643-1600-4 

«... zur Zeit das beste Werk über das ZX 
Microdrive.» 

(COMPUTER KOvTaKT 


Han Stewart 
Robin Jones 

Sinclair ZX Spectrum 
Programmieren leicht gemacht 

2. Auflage 1983. 192 Seiten, Broschur. 
sFr. 25.50 / DM 29.80 

ISBN 3.7643-1491 
«... dem Anfänger sehr zu ernpfehlen.» 


Tan Stewart 
Robin Jones 

ZX Spectrum Maschinencode 
1983. 125 Seiten, Broschur. 

sFr. 23.50/ DM 27.80 

ISBN 3.7643-1535-0 

«... Unentbehrlich für Maschinencode- 
Einsteigeı 


‚John Hardman 

Andrew Hewson 
Maschinencode-Routinen 
für den ZX Spectrum 

Die 40 besten Programme mit einer 
Einführung und Erklärungen 

1984. 169 Seiten, Broschur. 

sFr. 24.- /DM 29.80 

ISBN 3-7643-1559-8 

«... Ein wahrer Leckerbissen für pro- 


grammierfaule Specirum-Enthusiasten» 


Birkhäuser 
Computer 
Shop 


Adrian Dickens 

ZX Spectrum 
Hardware-Handbuch 

1984. 104 Seiten, zahlreiche Abbildungen, 
Broschur, 

sFr. 25.-/ DM 28.80 

ISBN 3-7643-1621.7 

Der Sinclair ZX Spectrum hat die Mikrocom- 
puterwelt revolutioniert: Einen Computer mit 
derart raffinierten Farb- und Grafikmöglich- 
keiten zu einem solch tiefen Preis anzubie- 
ten, wäre vor ein paar Jahren noch ein Ding 
der Unmöglichkeit gewesen. In diesem Buch 
nun erklärt Adrian Dickens etliche Beson- 
derheiten, die im Original-Handbuch von 
Sinclair nicht zur Sprache kommen: Wie Sie 
zum Beispiel den Computer an Ihren Color- 
TV-Apparat anpassen können, wie der Ton 
des internen Lautsprechers verstärkt werden 
kann, usw. Praktische Schaltungen zeigen 
den Anschluss einer professionellen Tasta- 
tur, die Verbindung des Spectrum mit exter 
nen Geräten und den Bau einer eigenen 
Steuerkonsole für den Betrieb mit dieser viel 
seitigen Maschine. 


Joachim Miltz, 

ZX Spectrum-Börse 
Ausgewählte Programme und Ideen 
1985. 112 Seiten, Ringheftung. 
sFr. 25.50/ DM 29.8 

ISBN 3.7643-1673-) 
In diesen Buch finden Sie als Besitzer eines 
ZX Spectrum Programme, die Sie direkt um- 
setzen können - set es ein Terminkalender 
oder eine Bundesligatabelle. Dies sind nur 
zwei Beispiele, deren Lösung das Buch be- 
schreibt. 


Birkhauser 


Basel Boston Stutyart 


Fur 
Alle 


etwas: 


Computer 
Shop 


Joachim Miltz 


Ausschneiden und einsenden an 


Birkhäuser Verlag AG 
Ringstrasse 39 
CH-4106 Therwil 


(Eng Pelikan Disketten. 
Die richtige Qualität fürSie. 


Jetzt gibt esvom Spezialisten für Computer-Zubehörauch Disketten. In Pelikan Qualität: 
Premium Cla: 
100% fehlerfre 
absolut zuverlässig 
auch unter extremsten Bedingungen 
im praktischen 2er-Pack oder 10er-Vorrats-Pack. Inden Größen 514” und 32”*, 
einseitig oder doppelseitig und in einfacher, doppelter oder »vierfacher« 96 tpi-Dichte. 
‚Alle Qualitäts-Disketten mit Verstärkungsring. 
Zur sicheren und geschützten Aufbewahrung Ihrer Pelikan-Disketten: Die Pelikan 
Disketten-Box in 2 Größen (für 40 oder 80 Disketten). Staubdicht und abschließbar. 
Und wie praktisch: Disketten und Zubehör sowie Kassetten für Ihren PC gibt es jetzt 
aus einer Hand in Ihrem Bürobedarfs-Fachgeschäft. 


DEN ISzaunn ED N! 


 Jelikan & 
Disketten MD1iD RR 


einseitig, doppelte Dichte Stück 
Single side, double density ece 
simple face, double 


aufhalten ah Anden se 


Pelikan macht die Arbeit 
sichtbar leichter. 


